那位高手老师帮我改写下代码谢谢！ - 编程论坛

#2

renxiaoyao362015-04-17 21:02

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

#3

柔儿梦婷2015-04-19 09:56

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

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

#4

lianyicq2015-04-20 08:53

回复楼主柔儿梦婷

在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

#5

柔儿梦婷2015-04-20 13:53

回复 4楼 lianyicq

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

#6

lianyicq2015-04-20 13:56

回复 5楼柔儿梦婷

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

#7

柔儿梦婷2015-04-20 14:00

回复 6楼 lianyicq

好谢谢你！

#8

lianyicq2015-04-20 14:02

回复 7楼柔儿梦婷

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

#9

柔儿梦婷2015-04-20 14:20

回复 8楼 lianyicq

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

#10

lianyicq2015-04-20 14:32

回复 9楼柔儿梦婷

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

#11

柔儿梦婷2015-04-20 14:37

回复 10楼 lianyicq

好的麻烦老师了！

#12

xzlxzlxzl2015-04-20 14:52

回复 10楼 lianyicq

lian版主辛苦了，模范版主。

#13

lianyicq2015-04-20 15:02

回复 12楼 xzlxzlxzl

谬赞了。业余的，没机会象你们专业的那样拼。