| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 799 人关注过本帖
标题:怎么把这段VBA转成VB6的写法?
只看楼主 加入收藏
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
结帖率:95.56%
收藏
 问题点数:0 回复次数:3 
怎么把这段VBA转成VB6的写法?
VBA录制代码:

Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

想把EXCEL内资料使用TAB做分隔符号?
搜索更多相关主题的帖子: 转成 Tab VB6 False VBA 
2023-05-25 15:56
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
收藏
得分:0 
Set Selection = sh.Columns("B:B")
Selection.TextToColumns Tab:=True

搞定

不要投我
2023-05-25 16:29
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
收藏
得分:0 
Set xlApp = CreateObject("Excel.Application")               '创建EXCEL应用类
xlApp.DisplayAlerts = False                                 '把Excel的警告讯息关掉

前面要加取消警告,不然会一直跳确认按钮

不要投我
2023-05-25 16:32
独木星空
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:919
专家分:683
注 册:2016-6-29
收藏
得分:0 
回复 2楼 yz1025
自己能解决的问题,还是自己解决较好。

素数问题的解决是我学习编程永恒的动力。
2023-05-25 21:59
快速回复:怎么把这段VBA转成VB6的写法?
数据加载中...
 
   



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

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