第一辑、网页：点击标签，翻页

蓝天630902

网页翻页：

4、可以直接输入页码翻页，比如：

Sub 价格查询3()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.dq123.com/price/priceindex.aspx"
        Do Until .ReadyState = 4
            DoEvents
        Loop
       .Document.getElementById("HiddenField1").Value = "3"
        For p = 0 To 36640
            .Document.getElementById("HiddenField2").Value = p'直接输入页码翻页
            .Document.form1.submit
             While .ReadyState <> 4 Or .Busy
                 DoEvents
             Wend
            Set r = .Document.All.tags("table")(7).Rows
            n = Range("a65536").End(xlUp).Row
            For i = 0 To r.Length - 1
                For j = 0 To r(i).Cells.Length - 1
                If j > 0 And j < 3 Then
                    Cells(i + n + 1, j + 1) = r(i).Cells(j).Title
                Else
                    Cells(i + n + 1, j + 1) = r(i).Cells(j).innerText
                End If
                Next j
            Next i
        Next p
    End With
End Sub

郭小朋

好东西啊 学习了

ww111222

终于 开眼了。



    原来 EXCEL 还能这样玩。

abing3

好贴，学习了。

pzhhxr

一直在找这方面资料。感谢楼主的无私。
留个记号。

praijna

非常好的教程，感恩楼主无私分享！

蓝天630902

批量下载：

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Sub 中国证券登记结算有限责任公司统计月报()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
    .Visible = True
        For p = 1 To 5
            .Navigate "http://www.chinaclear.cn/main/03/0304/0304_" & p & ".html"
            While .ReadyState <> 4 Or .Busy
                DoEvents
            Wend
            Set r = .Document.All.tags("table")(6).All.tags("a")
            n = Range("a65536").End(xlUp).Row
            For i = 0 To r.Length
                s = Split(r(i).href, "/")
                URLDownloadToFile 0, r(i).href, "D:\" & r(i).innerText & s(6), 0, 0
            Next i
        Next p
        .Quit
    End With
    Set r = Nothing
End Sub

lishengping666

感恩楼主无私分享！

引子玄

网页数据抓取，好ＤＤ，学习

引子玄

介绍得很详尽，收藏了，再慢慢理解