解决 “Microsoft.XMLHTTP” 拒绝访问的问题

最新推荐文章于 2020-10-10 15:38:14 发布

蓝天630902

最新推荐文章于 2020-10-10 15:38:14 发布

阅读量2k

点赞数 2

分类专栏： vb vba 文章标签： xml XMLHttp VBA MSXML2.ServerXMLHTTP

本文链接：https://blog.csdn.net/a814153a/article/details/16335687

版权

vba 同时被 2 个专栏收录

11 篇文章 1 订阅

订阅专栏

5 篇文章 0 订阅

订阅专栏

Sub 下载XML数据()
    Dim http As Object, nod, nod2
	'Set http = CreateObject("Microsoft.XMLHTTP")'拒绝访问
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "get", "http://zx.500wan.com/static/info/kaijiang/xml/ssq/12019.xml", False
    http.Send
    i = 0
    For Each nod In http.responseXML.getElementsByTagName("xml")
        For Each nod2 In nod.ChildNodes
            i = i + 1
            Cells(i, 1) = nod2.nodeName
            Cells(i, 2) = nod2.Text
        Next
    Next
    a = Array("RedFX", "BlueFX", "TiDian")
    For p = 0 To 2
        i = Range("a65536").End(xlUp).Row
        For Each nod In http.responseXML.getElementsByTagName(a(p))
            For Each nod2 In nod.Attributes
                i = i + 1
                Cells(i, 1) = nod2.Name
                Cells(i, 2) = nod2.Text
            Next
        Next
    Next p
End Sub