给你给个大概例子:
Sub test()
Dim myQuery
With ActiveSheet
CellsDelete
[a1] = "Conneting, Please Wait"
Set myQuery = ActiveSheetQueryTables _
Add(Connection:="URL;http://www2tjfdcgovcn/Lists/List51/DispForm1aspxID=2094", _
Destination:=Cells(1, 1))
End With
With myQuery
Refresh
End With
End Sub
希望你能成功!
以上就是关于Excel获取网页表格数据全部的内容,包括:Excel获取网页表格数据、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)