获取的网页内容出现乱码，如何解决？

a20089668

Private Sub CommandButton1_Click()
    Dim url, html
    n = Sheet1.[a65536].End(xlUp).Row + 1
    url = "http://analysis.gooooal.com/matchlist/2014/fb_league_20141103.html?directType=0"
    Set html = CreateObject("htmlfile")    '创建的应用程序名称
    With CreateObject("msxml2.xmlhttp")
        .Open "get", url, False
        .send
        html.body.innerhtml = StrConv(.responsebody, vbUnicode)       'responseBody  将回应信息正文以unsigned byte数组形式返回.只读
        Set tb = html.all.tags("table")(0).Rows
        For i = 1 To tb.Length - 1
            n = n + 1
            For j = 0 To tb(i).Cells.Length - 1
                Cells(n, j + 2) = tb(i).Cells(j).innertext
                Cells(n, 1) = Split(tb(i).Cells(j).innerhtml, "/")(3)
            Next
        Next
        Set html = Nothing
    End With
End Sub

代码运行得到的是乱码的内容，问题出现在哪里？

coby001

html.body.innerhtml =.responsetext  ''' StrConv(.responsebody, vbUnicode)

a20089668

谢谢，运行可以得到不乱码的内容。