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
循环更换网址运行上面的代码取数据
如果是ASPX.NET的翻页的话，翻页网址是不变的，要用其它方法
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024