VBA MSXML2.XMLHTTP.3.0获取百度网站site乱码的问题

[u012819276]

我写了个MSXML2.XMLHTTP.3.0自动获取网页数据的SUB,获取tool.chinaz.com的时候好好的，但是获取www.baidu.com网站的site数据的时候，返回的responseText全是乱码，然后我试了很多种其他的VBA获取网页数据方法，目前只有expression.Add(Connection, Destination, Sql)这一种获取的网页代码不是乱码，求大神指点.

要是能用MSXML2.XMLHTTP.3.0自然最好了~

我的代码：

    '获取网页数据-chinaz-正常
    Dim HTTPREQ As Object
    Set HTTPREQ = CreateObject("MSXML2.XMLHTTP.3.0")
    HTTPREQ.Open "GET", "http://seo.chinaz.com/?q=" & webURL, False
    HTTPREQ.Send
    Do Until HTTPREQ.ReadyState = 4
        DoEvents
    Loop
    Cells(113, 2).Value = HTTPREQ.responseText

    '获取网页数据-baidu-全乱码
    HTTPREQ.Open "GET", "http://www.baidu.com/s?wd=site%3A" & webURL, False
    HTTPREQ.Send
    
    Cells(113, 3).Value = HTTPREQ.responseText

[of123]

试了一下，没有看到乱码。