QueryTable自动从网页分页抓取道琼斯指数

瓦琢

从ExcelHome学了不少VBA的东东，即学即用，即分享一下。
近几年中国股市与美股指数关联度越来高，需要看道琼斯指数，
可是道琼斯指数貌似收费了，yahoo原来公开下载，现在不可以了，所以用了网页抓取；
问题在于：首页支持querytable，有许多分页，分页不能QueryTable。
经测试，解决步骤如下：
1.首页用宏提取，录制成代码；
2.找到分页网址的规律，增加了&z=66&y=7524,不用分页有不同的y值；
3.VBA中，For循环实现自动改变y值和变换要导入的单元格位置。
测试OK，QueryTable就是快哈哈！
Yahoo网有价值的数据很多，大胆的去抓吧！

小贴士：网页提交的“&”号不能直接写，必须用Chr（38）表示，yahoo网是这样。

精神提倡：
1.数据要精简，不用的不抓，别浪费时间和精力，就如同人生一样；
2.敢于分享。

解决代码如下：
Sub 下载道琼斯指数()
'从Yahoo网页分页抓取道琼斯指数

Dim i%, j%, y%, Z%, Adn$, Url$, t!
t = Timer
ActiveSheet.Range("A:G").ClearContents

For i = 0 To 114                          '全部为328，yahoo已不支持
    Z = 66                              '每页66行数据
    y = i * Z
    j = i * 67 + 1                      '导入单元格位置
    Adn = Chr(38)
    Url = "a=04" & Adn & "b=26" & Adn & "c=1896 " & Adn & "d=11& " & Adn & "e=16" & Adn & "f=2014" & Adn & "g=d" & Adn & "z=" & Z & Adn & "y=" & y
    Url = "http://finance.yahoo.com/q/hp?s=^DJI" & Adn & Url
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Url, Destination:=Range("A" & j))
        .Name = "000"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "15"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
waitsec (0.1)
Next
MsgBox Timer - t
End Sub

详见附件：道琼斯指数及Yahoo网页分页自动抓取宏
琼斯指数历史数据抓取.rar (508.5 KB, 下载次数: 144)

2014-12-17 11:08 上传

点击文件名下载附件
道琼斯网抓

瓦琢

有人下，没人回，看来我来错地方了，That's it!

qingluan

正愁没地方下载道琼斯指数完整数据呢，楼主的帖子帮大忙了，下下来好好学习下，谢谢楼主！

zt7434188

正是需要的，非常感谢楼主

筷子一双半

   Url = "a=04" & Adn & "b=26" & Adn & "c=1896 " & Adn & "d=11& " & Adn & "e=16" & Adn & "f=2014" & Adn & "g=d" & Adn & "z=" & Z & Adn & "y=" & y
     Url = "http://finance.yahoo.com/q/hp?s=^DJI" & Adn & Url
楼主，这行代码什么意思，按照你给的代码编写了一个但是只能提取第一页，并且无限循环