网抓数据

cunfu2010

以此网址为例：http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2016/index.html学习网抓数据，如何实现抓取数据到最底层，即从省到村（社区）五级数据抓取

cunfu2010

实现了抓取指定网页某一层的数据：
Sub test1()
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2016/13.html", Destination:=Range("$A$1"))
        .Name = "13"
        .FieldNames = True
        .WebFormatting = xlWebFormattingNone
        .WebTables = "5"
        .Refresh BackgroundQuery:=False
    End With
End Sub

多层的如何实现抓取，比如整个“河北省”所属的数据

QCW911

http://www.stats.gov.cn/tjsj/tjb ... 1/05/130105006.html
分析路径

cunfu2010

QCW911 发表于 2017-6-26 14:55
http://www.stats.gov.cn/tjsj/tjbz/tjyqhdmhcxhfdm/2016/13/01/05/130105006.html
分析路径

能具体点吗？我琢磨好几天了，还是不能循环出来，一页一页的行，一次性全部抓出来做不出来。

qcw811206

cunfu2010 发表于 2017-6-26 16:15
能具体点吗？我琢磨好几天了，还是不能循环出来，一页一页的行，一次性全部抓出来做不出来。

/13/01/05/   这个进行循环

cunfu2010

qcw811206 发表于 2017-6-26 16:41
/13/01/05/   这个进行循环

还是做不出来，求具体点吧

QCW911

/13/01/05/  明显是 省，市，县 每个省的对应的代码，省下的市的代码，下面的县的代码，循环

cunfu2010

QCW911 发表于 2017-6-27 07:47
/13/01/05/  明显是 省，市，县 每个省的对应的代码，省下的市的代码，下面的县的代码，循环

谢谢，这是不是要做辅助工作表啊。还是不会，再学学吧