Excel vba 怎么获取这个网页上的查询信息
1个回答
展开全部
Sub t()
Dim XmlDom, XmlNodes, i As Integer, arr
Set XmlDom = CreateObject("Microsoft.XMLDOM")
XmlDom.async = False
XmlDom.Load "http://www.cffex.com.cn/fzjy/ccpm/201403/07/index.xml"
Set s = XmlDom.DocumentElement.ChildNodes
For i = 0 To s.Length - 1
For j = 0 To s(i).ChildNodes.Length - 1
Cells(i + 1, j + 1) = s(i).ChildNodes(j).Text
Next
Next
End Sub
Dim XmlDom, XmlNodes, i As Integer, arr
Set XmlDom = CreateObject("Microsoft.XMLDOM")
XmlDom.async = False
XmlDom.Load "http://www.cffex.com.cn/fzjy/ccpm/201403/07/index.xml"
Set s = XmlDom.DocumentElement.ChildNodes
For i = 0 To s.Length - 1
For j = 0 To s(i).ChildNodes.Length - 1
Cells(i + 1, j + 1) = s(i).ChildNodes(j).Text
Next
Next
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
