2014-10-17 25 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應該將對象遺忘。

相關問題