使用Excel导航到IE中的空白页面
我在Excel中有一块VBA代码，其中包含纯HTML文本编写的单元格，将该HTML代码转换为IE，并将其粘贴为单元格中没有HTML标记的格式化文本。 我在这里select了代码： 带有标签的HTML文本在Excel单元格中格式化文本
与我连接的这个问题相反，我必须为很多细胞做这个，所以我想加快一点。 由于CreateObject("InternetExplorer.Application")需要很长时间来处理我试图多次使用同一个对象，但它失败了。第二次涉及到时，请.Navigate "about:blank" 。
这里是代码：
Sub ConvertHTMLrecu() Dim Ie As Object Dim rng As Range, rng2 As Range Dim i As Integer Dim iChr As Integer i = 1 Set Ie = CreateObject("InternetExplorer.Application") For i = 1 To 40 Set rng = Feuil3.Range("A" & i) Set rng2 = Feuil3.Range("C" & i) With Ie .Visible = False .Navigate "about:blank" .Document.body.InnerHTML = rng.Value .ExecWB 17, 0 .ExecWB 12, 2 ActiveSheet.Paste Destination:=rng2 .Quit End With Next i End Sub
我需要的
我想要两件事情之一。 要么find一种方法再次导航到空白页面，所以我可以再次运行macros而不必重置对象，或者find更好的方法来在Excel中格式化HTML文本（因为这是所有这个macros正在做的）。
您在第一个循环中退出对象，并尝试在第二个循环中访问它，从而出现错误。
只需从循环中删除.quit ，并在End Sub之前的最后一行中放置下面的行：
Ie.quit Set Ie = Nothing