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 

我假設只會有一個結果，你正在尋找這就是爲什麼我包括退出條款。這是非常重要的，因爲你不希望代碼繼續執行後，它已經找到你的後...