使用Inet控件可很方便的读取网页html文本
Dim html As String
html = Inet1.OpenURL("www.baidu.com")
Debug.Print html