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 

我假设只会有一个结果，你正在寻找这就是为什么我包括退出条款。这是非常重要的，因为你不希望代码继续执行后，它已经找到你的后...