如何在excel用vba读取xml的信息
2个回答
展开全部
供参考
Sub test()
Dim myQuery
With ActiveSheet
.Cells.Delete
.[a1] = "Conneting, Please Wait..."
Set myQuery = ActiveSheet.QueryTables _
.Add(Connection:="URL;", _
Destination:=.Cells(1, 1))
End With
With myQuery
.Refresh
End With
补充：grhsc你不是知道读取全部网页的程序吗？那里可以先把整个网页以表格的方式读取到excel中，建立一个临时sheet，然后删除掉多余的数据，或者在excel中在读取需要的数据不就行了？
Sub test()
Dim myQuery
With ActiveSheet
.Cells.Delete
.[a1] = "Conneting, Please Wait..."
Set myQuery = ActiveSheet.QueryTables _
.Add(Connection:="URL;", _
Destination:=.Cells(1, 1))
End With
With myQuery
.Refresh
End With
补充：grhsc你不是知道读取全部网页的程序吗？那里可以先把整个网页以表格的方式读取到excel中，建立一个临时sheet，然后删除掉多余的数据，或者在excel中在读取需要的数据不就行了？
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
