内容每5分钟更新
客服QQ:4008017500
客服QQ:4008017500
点击： 回复：379602 关闭此页
自动更新开奖数据的excel文件，供大家下载(更新到2011年10月12日上午)
249楼
duy3 | 发表于2022-11-02 16:29:48
duy3 | 发表于2022-11-02 16:29:48双色球：http://data.17500.cn/ssq_asc.txt 更换新网址后“s = Split(.responseText, Chr(10))”不能分割了，请教怎么更改？
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
251楼 duy3 | 发表于2022-11-07 14:31:34
双色球：http://data.17500.cn/ssq_asc.txt 更换新网址后“s = Split(.responseText, Chr(10))”不能分割了，请教怎么更改？
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
不支持 .responseText
不支持 .responseText
duy3 | 发表于2022-11-07 14:31:34双色球：http://data.17500.cn/ssq_asc.txt 更换新网址后“s = Split(.responseText, Chr(10))”不能分割了，请教怎么更改？
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://data.17500.cn/ssq_asc.txt", False
.Send
s = Split(.responseText, Chr(10))
End With
不支持 .responseText
不支持 .responseText
255楼 duy3 | 发表于2022-11-07 16:50:37
Dim i%, j%, S() As String, URL1 As String, IE As Object
URL1 = "http://data.17500.cn/ssq_asc.txt" '"http://www.17500.cn/getData/ssq.TXT"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate URL1, False
While IE.ReadyState <> 4 Or IE.Busy = True
DoEvents
Wend
S = Split(IE.document.body.innerText, Chr(10))
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
ReDim arr(1 To UBound(S), 1 To 29)
For i = 0 To UBound(S) - 1
For j = 1 To 29
arr(i + 1, j) = Split(S(i), " ")(List(j - 1))
Next j
Next i
With Cells(3, 1).Resize(UBound(S), 29)
.Clear
.Value = arr
End With
这个的缺点就是每次刷新都打开一次网页，还不知道如何阻止网页打开
duy3 | 发表于2022-11-07 16:50:37Dim i%, j%, S() As String, URL1 As String, IE As Object
URL1 = "http://data.17500.cn/ssq_asc.txt" '"http://www.17500.cn/getData/ssq.TXT"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate URL1, False
While IE.ReadyState <> 4 Or IE.Busy = True
DoEvents
Wend
S = Split(IE.document.body.innerText, Chr(10))
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
ReDim arr(1 To UBound(S), 1 To 29)
For i = 0 To UBound(S) - 1
For j = 1 To 29
arr(i + 1, j) = Split(S(i), " ")(List(j - 1))
Next j
Next i
With Cells(3, 1).Resize(UBound(S), 29)
.Clear
.Value = arr
End With
这个的缺点就是每次刷新都打开一次网页，还不知道如何阻止网页打开
256楼 duy3 | 发表于2022-11-07 18:25:38
duy3 | 发表于2022-11-07 18:25:38code:Sub 方法1()
Dim StrURL As String
StrURL = "http://data.17500.cn/ssq_asc.txt"
With CreateObject("InternetExplorer.Application")
.Visible = False
.navigate StrURL
While .readystate <> 4 Or .Busy = True
DoEvents
Wend
innertext = .document.body.innertext
.document.parentwindow.execscript "javascript:window.opener=null;window.open('','_self');window.close();"
S = Split(innertext, Chr(10))
End With
List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)
ReDim arr(1 To UBound(S), 1 To 29)
For i = 0 To UBound(S) - 1
For j = 1 To 29
arr(i + 1, j) = Split(S(i), " ")(List(j - 1))
Next j
Next i
With Cells(3, 1).Resize(UBound(S), 29)
.Clear
.Value = arr
End With
End Sub
260楼 langshao | 发表于2023-04-17 15:01:44
langshao | 发表于2023-04-17 15:01:44十多年的老平台 说不做就不做了吗？？对于我们来说，这都是一种习惯了，转眼几个月过去 ，数据图表还是无法更新。。。平台也不处理。。。
262楼 OMG500W | 发表于2023-07-13 08:24:43
OMG500W | 发表于2023-07-13 08:24:43新版的OFFICE 365不能更新，显示的是启用了不受信任的网站的宏，添加为受信任的站点后，又出现1004错误。有解决的办法吗？
266楼 lch5_R2gLoOty | 发表于2023-11-05 11:27:45
lch5_R2gLoOty | 发表于2023-11-05 11:27:45老师，怎么修改才可以把H列到J列的内容去掉，就是不需要这三列的内容在表格中出现，点在线更新号码。只显示开奖时间，期号和开奖号码？