我想知道如何使用VBA脚本将带有html标签的整列单元转换为格式化文本(基于这些标签)。如何将一列文本与html标签转换为Excel中的vba格式文本
使用下列内容:
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
'update to the cell that contains HTML you want converted
.ExecWB 17, 0
'Select all contents in browser
.ExecWB 12, 2
'Copy them
ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B1")
'update to cell you want converted HTML pasted in
.Quit
End With
End Sub
但这只是转换在列的第一个单元格。 (在上面的示例中,我手动键入A2和B2以执行第二个单元格)。如果这是一个天真的问题,我很抱歉,但我是VBA的新手。我试图使用循环和范围玩,但没有成功。
-09-25
J. Betta