[已解决]请老师指点

dahanwudi

Dim qt As QueryTable, ws As Worksheet
Set ws = Worksheets.Add
Set qt = ws.QueryTables.Add(Connection:="url;http://data.eastmoney.com/zjlx/list.html", Destination:=ws.Range("a1"))
qt.Refresh

connection的网址有50页，这个代码只能获得第一页数据，其它页码数据怎样获得？

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-12-18 01:42

跳转到最佳答案楼层

dongqing1998

dahanwudi

dongqing1998 发表于 2013-12-18 01:42

您的指点太好了，谢谢您！能不能用querytable对象建立查询，完成这个工作？