| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2872 人关注过本帖, 1 人收藏
标题:从哪里能学习到VB操作Excel程序和详细解说
只看楼主 加入收藏
柔儿梦婷
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2015-1-24
收藏
得分:0 
回复 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

"投注总额", "奖池金额", "一等注数", "一等金额", "二等注数", "二等金额", _这几个内容去掉
2015-04-19 10:07
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 21楼 柔儿梦婷
另外开贴后再回复。方便以后贴子的查询。
不用开,看到贴子了。

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

大开眼界
2015-04-20 08:51
快速回复:从哪里能学习到VB操作Excel程序和详细解说
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037318 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved