[已解决]如何网抓有参数输入控件的网页数据？

tsmcp

请教各位老师，网页http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh有日期控件，我想抓取其他日期数据，应如何处理呢？谢谢。

在此非常感谢duquancai老师及ccwan老师。

Private Sub CommandButton1_Click()
    Dim strText$, arrData(1 To 6000, 1 To 4), i&, n&, j&
    Dim r As Variant
   
    Range("A2:P" & [A65536].End(xlUp).Row + 1).ClearContents
    For p = 2 To 2
        On Error Resume Next
        With CreateObject("internetexplorer.application")
             .Visible = False
            .Navigate "http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh"
            Do Until .ReadyState = 4
                DoEvents
            Loop
            .Document.all.tags("select")(0).Value = "12"
            .Document.all.tags("select")(1).Value = "09
            .Document.all.tags("select")(2).Value = "2018"
            .Document.all.tags("INPUT")(6).Click
            .Document.submit
            t = Timer
            Do While .busy Or t + 3 > Timer
                DoEvents
            Loop
            
            For Each TR In .Document.all.tags("table")(15).Rows
            i = i + 1: j = 0
            If i >= 3 Then
                n = n + 1
                For Each TD In TR.Cells
                    j = j + 1
                    arrData(n, j) = TD.innerText
                Next
            End If
        Next
        End With
    Next p
    Sheets(1).Range("a2").Resize(n, 4) = arrData
End Sub

duquancai

POST请求，这里面有动态参数，很长很长的字符串并且层层传递。说到这里，你自己去玩吧！

chentonny

a="2018"
b={1,2,3...12}
c={1,2,3...31}
把 a& b& c传递给today参数
把a传递给ddlShareholdingYear
把b传递给ddlShareholdingMonth
把c传递给ddlShareholdingDay
遍历abc，用POST请求，就可以把一年的数据全部抓取下来。

tsmcp

谢谢两位老师

Kaohsing

怪不的二楼这样说。参数众多：

chentonny

这个其实不难，就是HTML的表单操作。涉及异步、JSON才是比较困难的，而对付各种验证码更难。