我给出一个样例,填上地址就可以运行了。最后在调试栏打出结果,这段代码相当于对HTML做CTRL+A的复制
这种代码的主要的难点在于对自动化对象InternetExplorer.Application对象的使用(在EXCEL区的朋友对EXCEL.Appliction更熟悉吧)。
这段代码还是很粗糙的,如果你想精确控制读取的部分(比如某个DIV标记或某个表格),应该掌握更多的IE APPLICATION及Document对象模型。
解释一下While-Wend中的代码,当一个IE做navigate时,这个方法以是异步的,在下载页面过程中VBA代码如果跟着马上读页面内容,几乎都会失败。为了等待navigate完成,必须读IE APPLICATION对象的readystate这个属性,4代表complete(不管是下载成功还是失败,完成了就算),
'----------------------------------------------------------------------
Sub readhtml()
Set iex = CreateObject("internetexplorer.application")
iex.Visible = True
iex.navigate "你要访问的地址"
While iex.readystate <> 4
Wend
Debug.Print iex.document.body.innertext
End Sub
'------------------------------------------------------------------