双色球自动更新开奖数据的excel文件

蓝天630902 · 发表于 2012-3-5 15:19

Sub 双色球数据下载()
With CreateObject("internetexplorer.application")
      .Navigate "http://www.17500.cn/getData/ssq.TXT"
      Do Until .ReadyState = 4
         DoEvents
      Loop
      y = Split(Replace(.Document.All(0).innerText, Mid(.Document.All(0).innerText, 8, 1), ","), vbCrLf)
      For j = 0 To UBound(y) - 1
         x = Split(y(j), ",")
         For m = 0 To UBound(x) - 1
            Cells(j + 1, m + 1) = x(m)
         Next m
      Next j
      .Quit
End With
End Sub

crazycl · 发表于 2012-5-4 14:19

非常感谢楼主的无私分享

lmylmy224 · 发表于 2012-7-24 11:09

祝大家中大奖！！！

yyyyyy55 · 发表于 2012-11-5 22:12

谢谢分享。

lby999 · 发表于 2015-2-5 17:29

谢谢分享!!!

deapsdh · 发表于 2016-11-22 22:47

如果那个获得历史数据的VBA要限定一下年度，如只要2015年以后的数据，那要怎么改写呢？

Taeng9C · 发表于 2016-11-23 00:59

原来如此.谢谢!

hdlssq115 · 发表于 2018-1-27 15:16

谢谢分享。

li4ming · 发表于 2018-10-14 20:06

谢谢分享,祝大家中大奖

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

[分享] 双色球自动更新开奖数据的excel文件