这位高手老师能帮我把这个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

"投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _这几个内容去掉

另外开贴后再回复。方便以后贴子的查询。
不用开，看到贴子了。

[ 本帖最后由 lianyicq 于 2015-4-20 08:54 编辑 ]