这个是VBA代码麻烦改成VB6代码在文本框显示就可以了。

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

[ 本帖最后由 柔儿梦婷 于 2015-4-19 09:59 编辑 ]

投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _
      "三等注数", "金额", "四等注数", "金额", "五等注数", "金额", "六等注数", "金额")
上面这些内容去掉，帮帮忙了我是新手实在弄不出来。

[ 本帖最后由 柔儿梦婷 于 2015-4-19 10:01 编辑 ]

辛苦老师了，可能我没说明白，就是改成VB的代码我要把它做成EXE文件，意思是按照VBA那个代码的思路改写成VB代码，如点击按钮后更新数据然后在文本框或图片框显示结果都行。就这意思！

好谢谢你！

我的目的是把网上那文件中的开奖期号", "开奖日期", "红", "号", " ", " ", " ", " ", "蓝", "红", _
      "号", "出", "球", "顺", "序",这部分内容保存起来然后在如文本框中能看到，之后我要用保存的数据进行其他处理，其实我刚学VB对这个有兴趣拿它训练，就是不知道怎样把这些数据弄下来保存，之后我可以慢慢学习其他的，我是自学的老师见笑了。

好的麻烦老师了！