2楼 水中杯 | 发表于2019-07-30 15:57:14
Private Sub CommandButton1_Click()
Range("A3:AC11113500").ClearContents——检查一下这里,看是不是大于你工作表的行数或列数超标?我这里是故意整错的
k3dshijihao = "http://e.17500.cn/getData/ssq.TXT"
d3s = "WData3D_All"
Cells(2, 1) = "开奖期号"
Cells(2, 2) = "开奖日期"
Cells(2, 3) = "红"
Cells(2, 4) = "号"
Cells(2, 5) = " "
Cells(2, 6) = " "
Cells(2, 7) = " "
Cells(2, 8) = " "
Cells(2, 9) = "蓝"
Cells(2, 10) = "红"
Cells(2, 11) = "号"
Cells(2, 12) = "出"
Cells(2, 13) = "球"
Cells(2, 14) = "顺"