2014-10-17 22 views
0
While Not code_Download = 0  'code_Download = 0 --> CORRECT 
    If delay < 30000 Then  
     delay = delay + 2000 
    Else 
     MsgBox "Delay too long" 
     CREATEtemp_fileXML = False 
     Exit Function 
    End If 
    Set IE = New InternetExplorerMedium ' <<<<<<<<< 
    IE.Navigate wURL 
    Sleep delay 
    IE.Quit 
    code_Download = URLDownloadToFile(0, wURL, temp_fileXML, 0, 0) 

所以我设置了一个新的InternetExplorermedium每当我通过循环。没有这个,我得到了一个不被认可的界面的错误。我想知道如果我可以和如何摧毁以前的指针,或者如果这是“不是那么糟糕”的做法。 谢谢VBA是我的对象删除,如果我把它设置为一个新的

回答

0

这在VBA中并不是那么糟糕。如果您想彻底根除下一次迭代前留下的任何参考,则可以在IE.Quit之后执行Set IE = Nothing。我不认为这会在这种情况下产生太大的影响,因为无论如何,IE.Quit应该将对象遗忘。

相关问题