函数内容:
Function RemoveHTML(strText)
Dim RegExs
Set RegExs = New RegExp
RegExs.Pattern = "<[^>]*>"
RegExs.Global = True
RemoveHTML = RegExs.Replace(strText, "")
End Function
调用函数就行
本文介绍了一个简单的VBA函数FunctionRemoveHTML,用于从文本中移除所有的HTML标签。此函数通过正则表达式匹配并替换所有形如<[^>]*>的HTML标签为空字符串,从而实现纯文本的提取。
函数内容:
Function RemoveHTML(strText)
Dim RegExs
Set RegExs = New RegExp
RegExs.Pattern = "<[^>]*>"
RegExs.Global = True
RemoveHTML = RegExs.Replace(strText, "")
End Function
调用函数就行

被折叠的 条评论
为什么被折叠?