初学vba不懂网页查询，求助全国企业信用信息公示系统批量查询

Sub getdata()
    Dim arr(1 To 10, 1 To 4), Company, Sdata$, brr, x
    Cells.Clear
    On Error Resume Next
    Set oDoc = CreateObject("htmlfile")
    [a1:d1] = Array("公司信息", "注册资本", "成立时间", "公司状态")
    Company = Application.InputBox("请输入你要查询的公司名称关键字：", "请输入关键字")
    If Company = False Then Exit Sub
    If Company = "" Then Exit Sub
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "
(Company) & "&index=", False
        .Send
        oDoc.body.innerHTML = .responsetext
        Set r = oDoc.All.tags("table")(0).Rows
        For i = 1 To r.Length - 1
            k = k + 1
            For x = 1 To 4
                arr(k, x) = r(i).Cells(x).innerText
            Next
        Next
    End With
    Range("A2").Resize(k, 4) = arr
    Range("A1").CurrentRegion.HorizontalAlignment = xlLeft
    Columns.AutoFit
End Sub

如果运行没有想要的结果，请告知你使用的excel版本，针对版本更改一下代码即可，理论上，以上代码适用于2010版本以上