VBA：使用wininet從網站獲取源代碼

Question

所以基本上我有以下代碼：

Dim myIE As InternetExplorer: Set myIE = New InternetExplorer 
myIE.Visible = True 
myIE.Navigate URL:="http://www.google.com" 
While myIE.Busy 
    DoEvents 'wait until IE is done loading page. 
Wend 

我如何才能獲得頁面的源代碼？如果有人可以將我鏈接到相應的文檔，那就太好了。通過MS的網站，我絕對沒有希望。

乾杯。

Answer 1

您可以檢索使用HTML源代碼：

strHTML = myIE.Document.body.innerHTML