ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
易厚学堂-专业的职场技能充电站 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 204|回复: 5

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-9-14 22:11 | 显示全部楼层 |阅读模式
本帖最后由 tsmcp 于 2018-9-16 13:13 编辑

请教各位老师,网页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

TA的精华主题

TA的得分主题

发表于 2018-9-14 22:16 来自手机 | 显示全部楼层
POST请求,这里面有动态参数,很长很长的字符串并且层层传递。说到这里,你自己去玩吧!

TA的精华主题

TA的得分主题

发表于 2018-9-15 01:26 | 显示全部楼层
a="2018"
b={1,2,3...12}
c={1,2,3...31}
把 a& b& c传递给today参数
把a传递给ddlShareholdingYear
把b传递给ddlShareholdingMonth
把c传递给ddlShareholdingDay
遍历abc,用POST请求,就可以把一年的数据全部抓取下来。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-15 08:15 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-9-15 08:44 | 显示全部楼层
本帖最后由 Kaohsing 于 2018-9-15 09:57 编辑

怪不的二楼这样说。参数众多:
2.png

TA的精华主题

TA的得分主题

发表于 2018-9-15 09:33 | 显示全部楼层
这个其实不难,就是HTML的表单操作。涉及异步、JSON才是比较困难的,而对付各种验证码更难。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2018-11-19 17:02 , Processed in 0.082632 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表