vba编程把纯文本转换成html,用VBA读取html文件上的可视文本（html转txt）

我给出一个样例，填上地址就可以运行了。最后在调试栏打出结果，这段代码相当于对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

'------------------------------------------------------------------