Excel VBAのInternet Explorer OLEエラー

Question

「Microsoft Excelは別のアプリケーションがOLEアクションを完了するのを待っています」というエラーメッセージが表示されます。これをどうすれば解決できますか？ご協力いただきありがとうございます。

エスケープキーのいくつかの組み合わせを押してもプログラムが実行されなくてもコンピュータを再起動する必要があるので、実際に私を悩ます。

 Set objCollection = IE.document.getElementsByTagName("a") 

i = 0 
While i < objCollection.Length 

     If objCollection(i).Title = "The maximum amount of records that may be downloaded is 2,000." Then 

       Set objElement = objCollection(i) 


     End If 


     i = i + 1 
    Wend 

objElement.Click 

Answer 1

アンカーのすべてを閲覧する「それぞれについて」を使用することをお勧め：

Dim objCollection, obj 
For each obj in objCollection 
    If obj.Title = "The maximum amount of records that may be downloaded is 2,000." Then 

    Set objElement = obj 

Exit For 
    End If 
Next obj 

私はなぜあなたがいる探している1件の結果があるだろうと仮定していますexit節が含まれています。これは非常に重要ですが、あなたが何をしたのかを見つけた後にコードを実行し続けたい場合は...