如何从以下网页逐日抓取数据到表格里？谢谢！

cicnmg · 发表于 2018-8-24 16:39

cicnmg · 发表于 2018-8-24 16:41

cicnmg · 发表于 2018-8-24 17:45

whmwhm · 发表于 2018-8-25 17:35

别沉了，我也想知道如何下载下来。

cicnmg · 发表于 2018-8-25 17:58

那就再顶一下吧

xyxcc177 · 发表于 2018-8-25 20:54

下这些数据有什么意义呢

chentonny · 发表于 2018-8-25 21:33

提示: 该帖被管理员或版主屏蔽

719404338 · 发表于 2018-8-25 22:40

Sub t()
Dim arr(1 To 5, 1 To 2), brr
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://www.csindex.com.cn/zh-CN/downloads/industry-price-earnings-ratio?date=2018-08-23&type=zy3", False
.Send
Do Until .ReadyState = 4
DoEvents
Loop
brr = Split(.responsetext, "</tr>")
For i = 3 To 7
arr(i - 2, 1) = Split(Split(brr(i), "<td>")(1), "</td>")(0)
arr(i - 2, 2) = Split(Split(brr(i), "<td>")(2), "</td>")(0)
Next
End With
[a1].Resize(5, 2) = arr
End Sub

复制代码

cicnmg · 发表于 2018-8-28 14:53

如果要是把每天的数据爬下来，怎样加循环语句？谢谢

chentonny · 发表于 2018-8-28 16:30

cicnmg 发表于 2018-8-28 14:53
如果要是把每天的数据爬下来，怎样加循环语句？谢谢

这取决于它的翻页是如何设置的。

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

[求助] 如何从以下网页逐日抓取数据到表格里？谢谢！

chentonny chentonny 当前离线性别保密 UID 3843096 阅读权限 30 注册时间 2017-8-26 在线时间小时最后登录 1970-1-1 积分 731 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-25 21:33 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 该帖被管理员或版主屏蔽

	回复举报