html - 在VBA中将html转换为纯文本

我有一个Excel工作表，其中的单元格包含HTML。如何批量转换为纯文本？现在有这么多无用的标签和样式。我想从头开始写，但如果我能把纯文本写出来就容易多了。
我可以编写一个脚本，用PHP将HTML转换为纯文本，这样如果你在VBA中想不出解决方案，也许你可以建议我如何将单元格数据传递到网站并检索数据。

最佳答案

设置对“Microsoft HTML对象库”的引用。

Function HtmlToText(sHTML) As String
  Dim oDoc As HTMLDocument
  Set oDoc = New HTMLDocument
  oDoc.body.innerHTML = sHTML
  HtmlToText = oDoc.body.innerText
End Function

提姆