回复 3楼 lianyicq
这位高手老师能帮我把这个VBA代码也改成VB的可以吗谢谢老师!Sub abc()
Range("A3:AC3500").Clear
cz = "http://www.
Cells(2, 1).Resize(1, 29) = Array("开奖期号", "开奖日期", "红", "号", " ", " ", " ", " ", "蓝", "红", _
"号", "出", "球", "顺", "序", "投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _
"三等注数", "金额", "四等注数", "金额", "五等注数", "金额", "六等注数", "金额")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & cz, Destination:=Range("A3"))
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh
End With
Range("A65536").End(3).Select
End Sub
"投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _这几个内容去掉