- 帖子
- 3
- 积分
- 16
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2014-3-30
|
回复 2# apang
你好,我有类似的问题,将下面格式的txt文件转换到excel中,我的思路是读取每行,用“,”分割,然后保存到sheet1中。但是老是出错,所以
请教您帮着指导一下。最好能有代码,谢谢。
读取文本文件时就弹出错误了。
我的代码:
Dim a
set fso=CreateObject("Scripting.FileSystemObject")
'获取文件操作对象
set fr=fso.opentextfile("d:\block.dat",1)
'使用文件对象下的opentextfile方法打开文件,设置文件模式为读取
do
data=fr.readline
'按行读取文件
a=split(data,",")
msgbox a(0)
msgbox a(1)
loop until fr.atendofstream
'判断是否达到了文件末尾,如果末尾则退出 |
|