请教论坛老师，如何网抓这个网址里数据，谢谢。

tsmcp · 发表于 2018-9-14 20:05

刚接解网抓，学了点皮毛，对网页http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh，想提取里面数据而不得其法，另http://club.excelhome.net/thread-1093639-2-1.html里ccwan 老师的代码又看不懂，请各位老师帮忙解决一下，谢谢。

duquancai · 发表于 2018-9-14 20:39

周末了，闲来无事，写一个吧！！！

Sub main()
Dim strText$, arrData(1 To 6000, 1 To 4), i&, n&, j&
Sheets(1).Select: Sheets(1).Cells.Clear: Sheets(1).Range("a:d").NumberFormat = "@"
Sheets(1).[A1:D1] = [{"股份代号","股份名称","于中央结算系统的持股量","占于上交所上市及交易的A股总数的百分比"}]
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh", False
.send
Do While .readyState <> 4
DoEvents
Loop
strText = .responseText
End With
With CreateObject("htmlfile")
.write strText
For Each TR In .all.tags("table")(2).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
Sheets(1).Range("a2").Resize(n, 4) = arrData
End Sub

复制代码

719404338 · 发表于 2018-9-14 20:41

这个不难。

chentonny · 发表于 2018-9-14 20:47

这个静态的好抓。把网页抓下来，用解析器提取就可以了。

tsmcp · 发表于 2018-9-14 21:11

chentonny 发表于 2018-9-14 20:47
这个静态的好抓。把网页抓下来，用解析器提取就可以了。

网页有个日期控件，若选择其他日期的数据又如何呢？谢谢

xyxcc177 · 发表于 2018-9-14 21:13

复制就可以了

duquancai · 发表于 2018-9-14 21:14

tsmcp 发表于 2018-9-14 21:11
网页有个日期控件，若选择其他日期的数据又如何呢？谢谢

如果是这样，那是另外的一个问题，那么你又开新帖提问。

tsmcp · 发表于 2018-9-14 21:56

duquancai 发表于 2018-9-14 21:14
如果是这样，那是另外的一个问题，那么你又开新帖提问。

哦，谢谢。

chentonny · 发表于 2018-9-14 23:52

你不能再用'GET‘,要改为'POST',并且要构建请求头，其中包括 ’today:dates‘, 再建一个你想查找的日期集合，遍历这个集合，就可以一次抓取多日的数据。

chentonny · 发表于 2018-9-15 00:48

dates变量要由3个字符串连结，如a & b & c, a、b、c分别代表年、月、日，如”2018“、"09"、"11"
再把a传递给表单参数 'ddlShareholdingYear'
把b传递给表单参数 'ddlShareholdingMonth'
把c传递给表单参数 'ddlShareholdingDay'
再建一个由abc组成的集合，把你想抓取数据的所有日期写入这个集合。
搞定

		自动登录	找回密码
密码			免费注册

[求助] 请教论坛老师，如何网抓这个网址里数据，谢谢。