Function getWebHtml(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String
Set doc = browser.Document For Each i In doc.All strHtml = strHtml & Chr(13) & i.innerHtml ' Next getWebHtml = strHtml End Function 估计是字体编码问题，右键查源代码，看看类似下面这句 content="text/html;charset=gb2312" 编码一样就不会再乱码 那是因字体与格式不同之故,IE是已商业化智能型色软件, 自己随便两三下搞搞的是无法相比的. 那当然了,你还需要把css,图片,js文件等都要下载下来的
