这个是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 编辑 ]

你发错地方了
不过这玩意我也不知道发哪里
VBA不是我们的领域，这和VB6的语言完全不一样，完全看不懂啊喂
你问问版主发哪里，反正VBA和VB6都不可以。

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

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

在C盘根目录建lottery.xlsx文件，试试下面代码。

Private Sub Command1_Click()
Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
dim cz as string
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("c:\lottery.xlsx")
Set sht = WB.Worksheets("Sheet1")
    sht.Range("A3:AC3500").Clear
    cz = "http://www."
    sht.Cells(2, 1).Resize(1, 29) = Array("开奖期号", "开奖日期", "红", "号", " ", " ", " ", " ", "蓝", "红", _
      "号", "出", "球", "顺", "序", "投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _
      "三等注数", "金额", "四等注数", "金额", "五等注数", "金额", "六等注数", "金额")
    With sht.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
    sht.Range("A65536").End(3).Select
WB.Save '保存编辑后的文件
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

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

这就是VB6下的代码.建一个工程,自己试一下.

好谢谢你！

如果简单查看网上的一个文本文件,只要一句代码.
新建工程,添加一个webbrowser控件.
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.
End Sub

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

下载文件参见
https://bbs.bccn.net/thread-443661-1-1.html
如果数据要后续处理，建议还是转换为数据库文件EXCEL保存