已解决：VBA将东方财富网龙虎榜个股明细放入excel表格中

phsu

將整個網頁抓下來， A15到A17就有你要的資料。
Sub test()
    Dim QT As QueryTable
    With ActiveSheet
        Set QT = .QueryTables.Add("URL;http://data.eastmoney.com/soft/s ... amp;date=2017-03-31", .Range("A1"))
    End With
    With QT
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .Refresh False
    End With
End Sub

莫悠悠

mzbao 发表于 2017-4-2 21:42

http://ddx.gubit.cn/new2.html

请问这个网页数据如何抓取？