是的可能:)事实上,让Internet Explorer做你的脏工作;)
TRIED和TESTED
我的假设
>我假设html文本在Sheet1的单元格A1中。您也可以使用变量。
>如果你有一个充满html值的列,那么只需将下面的代码放在一个循环中
码
Sub Sample()
Dim Ie As Object
Set Ie = CreateObject("InternetExplorer.Application")
With Ie
.Visible = False
.Navigate "about:blank"
.document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value
.document.body.createtextrange.execCommand "Copy"
ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")
.Quit
End With
End Sub
SNAPSHOT
HTH
Sid