小白急求下载网站表格数据

destroyingking

VBA万岁 发表于 2015-3-23 17:33
加一个循环查询多页数据：

请教我是把p = 1 To 3改成p = 1 To 53就可以么？

wchuns

类似对帖子本吧有哦，可以搜索，

VBA万岁

destroyingking 发表于 2015-3-23 22:13
请教我是把p = 1 To 3改成p = 1 To 53就可以么？

可以啊......

onlycxb

VBA万岁 发表于 2015-3-23 17:33
加一个循环查询多页数据：

再进一步：

1. Sub QT法抓取多页()
   
2.     Cells.Clear
   
3.     For p = 1 To 3
   
4.         Set s = IIf(p = 1, Cells(Rows.Count, 1).End(xlUp), Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
   
5.         With ActiveSheet.QueryTables.Add(Connection:="URL;http://data.eastmoney.com/soft_new/bbsj/201412/yysj/gpdm/" & p & ".html", Destination:=s)
   
6.             .Refresh BackgroundQuery:=False
   
7.         End With
   
8.         If p > 1 Then s.EntireRow.Delete
   
9.     Next p
   
10. End Sub
    

复制代码

onlycxb

最近审核怎么太频繁了

VBA万岁

onlycxb 发表于 2015-3-24 08:43
最近审核怎么太频繁了

是啊，以致于我这儿不是阻碍发贴，就是重复发帖。

onlycxb

VBA万岁 发表于 2015-3-24 08:50
是啊，以致于我这儿不是阻碍发贴，就是重复发帖。

Sub QT法抓取多页()
    Cells.Clear
    For p = 1 To 3
        Set s = IIf(p = 1, Cells(Rows.Count, 1).End(xlUp), Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
        With ActiveSheet.QueryTables.Add(Connection:="URL;http://data.eastmoney.com/soft_new/bbsj/201412/yysj/gpdm/" & p & ".html", Destination:=s)
            .Refresh BackgroundQuery:=False
        End With
        If p > 1 Then s.EntireRow.Delete
    Next p
End Sub

VBA万岁

VBA万岁 发表于 2015-3-24 08:50
是啊，以致于我这儿不是阻碍发贴，就是重复发帖。

这不，刚编辑过的帖子又不见了，重新补上附件吧：
QueryTable法提取数据.zip (43.24 KB, 下载次数: 15)

2015-3-24 08:53 上传

点击文件名下载附件

onlycxb

VBA万岁 发表于 2015-3-24 08:50
是啊，以致于我这儿不是阻碍发贴，就是重复发帖。

回个贴太难了，三四遍未成功。

destroyingking

VBA万岁 发表于 2015-3-24 08:53
这不，刚编辑过的帖子又不见了，重新补上附件吧：

感谢老师指点，解决我的大问题了