7,763
社区成员
发帖
与我相关
我的任务
分享vb调用excel打开txt文件格式设置问题
设置空格作为excel打开txt文件的分隔符，语句是：
Set xlbook = xlapp.Workbooks.Open("D:\1\use\xie19680101.txt", Format:=3, Delimiter:=" ")
但是由于原本txt文件里面的空格个数不同，所以打开后文件显示是这样的：
有没有办法定义分隔符是空格，多个空格和一个空格同样对待，就是打开的excel没有空格列
万分感谢啊！！
Set xlbook = xlapp.Workbooks.Open("D:\1\use\xie19680101.txt", Format:=3, Delimiter:=" ")
但是由于原本txt文件里面的空格个数不同，所以打开后文件显示是这样的：
有没有办法定义分隔符是空格，多个空格和一个空格同样对待，就是打开的excel没有空格列
万分感谢啊！！
...全文
请发表友善的回复…
发表回复
熊孩子开学喽 2013-08-12
- 打赏
- 举报
对待这种很有规律的文本, 你可以事先用VB来"规范化"一下.
分隔符号和换行符号都是已知的, 你用文本方式打开这个文件.
然后使用replace来删除多余的分隔符和换行符. 重新保存一下. 然后再用EXCEL打开即可
