怎么能一次性提取227页网络数据

Excel3938

怎么一次性提取这个网址中 227页数据到 表格里   https://www.lottery.gov.cn/kj/kjlb.html?plw

fzxba

1. Sub 挣钱不易理性购买()
   
2. 
   
3.   Dim byteData, vData, results(), vTemp
   
4.   Dim strURL As String, strText As String, x As Long, y As Long
   
5.   
   
6. '  strURL = "http://data.17500.cn/ssq_asc.txt" 'http://data.917500.cn/cqssc_10000.txt
   
7. '  strURL = "http://data.17500.cn/dlt_asc.txt" 'http://data.17500.cn/dlt_desc.txt
   
8. '  strURL = "http://data.17500.cn/7xc_asc.txt"
   
9. '  strURL = "http://data.17500.cn/3d_asc.txt"
   
10. '  strURL = "http://data.17500.cn/7lc_asc.txt"
    
11.   strURL = "http://data.17500.cn/pl5_asc.txt"
    
12. '  strURL = "http://data.17500.cn/ssq_desc.txt" ' "http://data.17500.cn/ssq_asc.txt"
    
13.   
    
14.   With CreateObject("Msxml2.XMLHTTP")
    
15.     .Open "GET", strURL, False
    
16.     .Send
    
17.     byteData = .ResponseBody
    
18.   End With
    
19.   With CreateObject("ADODB.Stream")
    
20.     .Type = 1           '1－二进制，2－文本
    
21.     .Mode = 3           '1－读，2－写，3－读写
    
22.     .Open
    
23.     .Write byteData     '二进制数组写入ADODB.Stream对象
    
24.     .Position = 0       '数据流位置，表示数据操作从这里开始，第一个位置的值为0，不是 1
    
25.     .Type = 2           '1－二进制，2－文本
    
26.     .Charset = "UTF-8"  '数据的编码方式，可选值：ASCII，GB2312
    
27.     strText = .ReadText 'ReadText([长度]) 从 Stream 对象中读取文本数据，不指定长度表示全部读取
    
28.     .Close
    
29.   End With
    
30.   vData = Split(strText, Chr(10))
    
31.   ReDim results(0 To UBound(vData), 0 To 28)
    
32.   For y = 0 To UBound(results)
    
33.     vTemp = Split(vData(y), Chr(32))
    
34.     For x = 0 To UBound(vTemp)
    
35.       results(y, x) = vTemp(x)
    
36.     Next
    
37.   Next
    
38.   Cells.Clear
    
39.   Range("A2").Resize(UBound(results) + 1, UBound(results, 2) + 1) = results
    
40. End Sub

复制代码

fzxba

仅参考可获取多彩种.rar (347.9 KB, 下载次数: 51)

2024-2-18 17:14 上传

点击文件名下载附件

lg747699

fzxba 发表于 2024-2-18 17:14

大师，这个网址，http://data.17500.cn/pl5_asc.txt，你是如何识别出来的？

perfect131

lg747699 发表于 2024-2-18 18:17
大师，这个网址，http://data.17500.cn/pl5_asc.txt，你是如何识别出来的？

他发自己收藏的，跟这求助网址 毫无关联

fzxba

lg747699 发表于 2024-2-18 18:17
大师，这个网址，http://data.17500.cn/pl5_asc.txt，你是如何识别出来的？

Excel3938

fzxba 发表于 2024-2-18 19:45

看来都是同道中人哈

Excel3938

fzxba 发表于 2024-2-18 17:12

大神级的  就是厉害

fzxba

Excel3938 发表于 2024-2-18 20:28
大神级的  就是厉害

非也，论坛中这方面厉害的太多，他们是神一样的存在。

Excel3938

fzxba 发表于 2024-2-18 17:12

可以按照最近开的放最上面 排序吗？
2024038
2024037
2024036
......
2004001