VBA：使用 wininet 从网站获取源代码答案

【问题标题】：VBA: Get source code from website using wininetVBA：使用 wininet 从网站获取源代码
【发布时间】：2010-02-17 01:45:37
【问题描述】：

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

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 的网站，我完全绝望了。

干杯。

【问题讨论】：

标签： internet-explorer vba

【解决方案1】：

您可以使用以下方法检索源 HTML：

strHTML = myIE.Document.body.innerHTML

【讨论】：

可能与 IE 下载的 .html 文件中的内容不完全相同。但通常足够接近。