VBA代码出错，求助，大神帮忙看看问题出错在哪里！

烟火孤星泪 · 发表于 2018-10-12 15:07

正在学习如何编写VBA代码，做了个例子，但是出错，求助大神看看附件中的代码出错的问题出现在哪里，怎么修改。
详情请查询附件，谢谢。

cqssc400 (1).rar (162.41 KB, 下载次数: 8)

以下是我想要达到的效果。

以下是运行后代码出现错误的效果

[size=0.83em]2.png (68.45 KB, 下载次数: 0)
下载附件 [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2018-10-12 14:56 上传

烟火孤星泪 · 发表于 2018-10-12 15:53

求帮助，谢谢

abc123281 · 发表于 2018-10-12 16:39

cqssc400 123.rar (163.05 KB, 下载次数: 14)

xiangbaoan · 发表于 2018-10-12 19:10

Private Sub CommandButton1_Click()
Dim url$, ar, br$(), tr, y&, x%
url = "https://cqssc.17500.cn/data/cqssc_400.txt"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", url, False
.send
br = Split(.responseText, Chr(10))
End With
ReDim ar(0 To UBound(br), 0 To 5)
For y = 0 To UBound(br) - 1
tr = Split(br(y), Space(1))
For x = 0 To 5
ar(y, x) = tr(x)
Next
Next
[a:f].ClearContents
[a2].Resize(1, 6) = [{"期号", "万", "千", "百", "十", "个"}]
[a3].Resize(UBound(br), 6) = ar
End Sub

烟火孤星泪 · 发表于 2018-10-12 23:28

xiangbaoan 发表于 2018-10-12 19:10
Private Sub CommandButton1_Click()
Dim url$, ar, br$(), tr, y&, x%
url = "https://cqssc.17500.cn/d ...

不是这个网址，我是要提取这个网址上的近400条的开奖数据，http://lottery.518guaji.com/tx.txt

烟火孤星泪 · 发表于 2018-10-12 23:31

abc123281 发表于 2018-10-12 16:39

不对，我是要按照文件中的格式，把http://lottery.518guaji.com/tx.txt这个网上近400条开奖数据，提取到表格中。

xiangbaoan · 发表于 2018-10-13 07:19

烟火孤星泪发表于 2018-10-12 23:28
不是这个网址，我是要提取这个网址上的近400条的开奖数据，http://lottery.518guaji.com/tx.txt

Sub test() '对了就好，不对算了。给的链接刚才无法打开。
Dim url$, ar(), br, tr, y&, x%
url = "http://lottery.518guaji.com/tx.txt"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", url, False
.send
br = Split(.responseText, Chr(10))
End With
ReDim ar(0 To UBound(br), 0 To 5)
For y = 0 To UBound(br) - 1
tr = Split(br(y), "----")
ar(y, 0) = tr(0)
For x = 1 To 5
ar(y, x) = Mid(tr(1), x, 1)
Next
Next
[a:f].ClearContents
[a2].Resize(1, 6) = [{"期号", "万", "千", "百", "十", "个"}]
[a3].Resize(UBound(br)).NumberFormatLocal = "@"
[a3].Resize(UBound(br), 6) = ar
End Sub

烟火孤星泪 · 发表于 2018-10-13 11:35

xiangbaoan 发表于 2018-10-13 07:19
Sub test() '对了就好，不对算了。给的链接刚才无法打开。
Dim url$, ar(), br, tr, y&, x%
url = "htt ...

不行，是否可以帮忙改为这个网站上的开奖记录，只提取最新开奖的近400期数据，最新的数据在下面

xiangbaoan · 发表于 2018-10-13 13:01

烟火孤星泪发表于 2018-10-13 11:35
不行，是否可以帮忙改为这个网站上的开奖记录，只提取最新开奖的近400期数据，最新的数据在下面

5楼回复，不是……
6楼回复，不对……
8楼回复，不行……
请问楼主，还有答的必要吗?那我也真心地说一下，不会……
祝好运，帮顶一下。

烟火孤星泪 · 发表于 2018-10-13 13:12

虽然没按说明的要求上编写，不过还是谢谢你

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

[求助] VBA代码出错，求助，大神帮忙看看问题出错在哪里！