请大神帮看下这段代码为什么报错

zyning

Private Sub 更新开奖数据_Click()
    Range("a3:ac65536") = Empty
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
        Dim s() As String
            With CreateObject("Msxml2.XMLHTTP")
                .Open "GET", "http://www.17500.cn/getData/ssq.TXT", False
                .Send
                s = Split(.responseText, Chr(10))
            End With
        [a3].Resize(UBound(s) + 1) = WorksheetFunction.Transpose(s)
        [a:a].TextToColumns [a1], 1, 1, 1, 1, , , 1
        [a2].Resize(1, 29) = Array("开奖期数", "开奖日期", "红1", "红2", "红3", "红4", "红5", "红6", "蓝", "", "出", "球", "顺", "序", "", "投注总额", "奖池金额", "一等奖", "一等金额", "二等奖", "二等金额", "三等奖", "三等金额", "四等奖", "四等金额", "五等奖", "五等金额", "六等奖", "六等金额")
                                                                           
        Range("ad3:ac65536") = Empty
    Application.ScreenUpdating = True
    Range("A2").Select
End Sub

hlxue

我运行了下，没有出错。有可能是你网络问题。

cavid001

运行了一下，和楼主报错一样

baofa2

1. Sub ssq_data()
   
2.   
   
3.   Dim results(), data, temp, byteData
   
4.   Dim strUrl As String, strData As String
   
5.   Dim x As Long, y As Long
   
6.   
   
7.   strUrl = "http://data.17500.cn/ssq_asc.txt"      ' https://www.17500.cn/getData/ssq.TXT
   
8.   
   
9.   With CreateObject("Msxml2.XMLHTTP")
   
10.     .Open "GET", strUrl, False
    
11.     .Send
    
12.     byteData = .ResponseBody
    
13.   End With
    
14.   With CreateObject("ADODB.Stream")
    
15.     .Type = 1           '1－二进制，2－文本
    
16.     .Mode = 3           '1－读，2－写，3－读写
    
17.     .Open
    
18.     .Write byteData     '二进制数组写入ADODB.Stream对象
    
19.     .Position = 0       '数据流位置，表示数据操作从这里开始，第一个位置的值为0，不是 1
    
20.     .Type = 2           '1－二进制，2－文本
    
21.     .Charset = "UTF-8"  '数据的编码方式，可选值：ascii，gb2312
    
22.     strData = .ReadText 'ReadText([长度]) 从 Stream 对象中读取文本数据，不指定长度表示全部读取
    
23.     .Close
    
24.   End With
    
25.   data = Split(strData, Chr(10))
    
26.   
    
27.   ReDim results(0 To UBound(data), 0 To 28)
    
28.   For y = 0 To UBound(data)
    
29.     temp = Split(data(y), Chr(32))
    
30.     For x = 0 To UBound(results, 2)
    
31.       results(y, x) = temp(x)
    
32.     Next
    
33.   Next
    
34.   
    
35.   Range("A2").Resize(UBound(data) + 1, UBound(results, 2) + 1) = results
    
36. End Sub
    

复制代码