[已解决]有关网页数据的获取的求助。请教各位老师。

excel123vba · 发表于 2016-10-17 09:07

本帖最后由爱疯于 2016-10-17 09:13 编辑

怎样才能用VBA实现获取这个网页的数据
http://zst.cjcp.com.cn/cjwssc_3x ... ian-ssc-0-3-30.html

查看网页源码，内容在1479行里。
1478行起，

网页源码数据太长，图片 QQ截图20161017090948.jpg

如图，
只要这两列数据。分别写入 A列，B列。
QQ截图20161017085438.jpg

例子附件：：：

ss help.rar (5.48 KB, 下载次数: 3)

爱疯 · 发表于 2016-10-17 09:37

Sub test()
Range("a1").CurrentRegion.ClearContents
With ActiveSheet.QueryTables.Add("url;http://zst.cjcp.com.cn/cjwssc_3x ... ian-ssc-0-3-30.html", [a1])
      .WebFormatting = xlWebFormattingAll '导入所有格式
      .WebTables = 3 '第3个表格(索引从0开始)
      .Refresh False
End With
End Sub

不一样，都导入了，可以吗

excel123vba · 发表于 2016-10-17 09:40

咦，，，表格形式的》？

我看看

excel123vba · 发表于 2016-10-17 09:42

爱疯发表于 2016-10-17 09:37
Sub test()
Range("a1").CurrentRegion.ClearContents
With ActiveSheet.QueryTables.Add("url;h ...

超版老师好。

我刚测试代码。运行报错。

爱疯 · 发表于 2016-10-17 09:58

本帖最后由爱疯于 2016-10-17 10:01 编辑

什么样的错误？

刚发现粘贴代码后，网址被隐藏了（链接还是对的）。这样复制2楼代码网址就错了。

改成正确网址。还有问题吗？

Book2.rar (6.54 KB, 下载次数: 7)

excel123vba · 发表于 2016-10-17 11:05

爱疯发表于 2016-10-17 09:58
什么样的错误？

刚发现粘贴代码后，网址被隐藏了（链接还是对的）。这样复制2楼代码网址就错了。

现在能正确读取进来了。
但还需要整理一下数据。

只要期号和开奖数据这两列了

excel123vba · 发表于 2016-10-17 17:20

感谢关注的老师们

xiangbaoan · 发表于 2016-10-17 17:51

我曾有一表，能得到最近1000期数据，表没完工，都送于你

excel123vba · 发表于 2016-10-17 21:02

xiangbaoan 发表于 2016-10-17 17:51
我曾有一表，能得到最近1000期数据，表没完工，都送于你

非常感谢你的分享。。。。。。

excel123vba · 发表于 2016-10-18 08:53

老师们早上好

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

[已解决]有关网页数据的获取 的求助。请教各位老师。

相关帖子

[已解决]有关网页数据的获取的求助。请教各位老师。