ExcelでIEの空白ページに移動する

Question

普通のHTMLテキストが書き込まれたセルを取り込み、そのHTMLをIEに取り込み、HTMLタグなしでセルに戻すVBAコードがExcelにあります。私はここでコードを選んだ：HTML Text with tags to formatted text in an Excel cell

私はリンクされているその質問とは対照的に、私は多くの細胞のためにこれを行う必要があるので、少しスピードアップしたい。 CreateObject("InternetExplorer.Application")は処理に時間がかかりますので、同じオブジェクトを何回か使用しようとしていますが、2回目になると.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 

私は、私は2つのうちのいずれかを希望

が必要なもの：ここで

はコードです。いずれかもう一度空白のページに移動する方法を見つけるので、オブジェクトをリセットせずにマクロをもう一度実行するか、ExcelでHTMLテキストの書式を設定するより良い方法を見つけます（このマクロはすべて実行しています）。

Answer 1

​​オブジェクトを最初のループで終了し、2番目のループで同じものにアクセスしようとすると、エラーが発生します。

ただ単にEnd Sub前の最後の行の行以下のループと場所から.quitを削除：

Ie.quit 
Set Ie = Nothing