主题：请帮忙

大家帮忙看看下面的宏为什么得不到想要的结果.

 

 

Sub TTest()
 
 application.ClearMsg
 
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists("D:\Weisoft Stock\setdata\1105.txt")= false then
    Set a = fs.CreateTextFile("D:\Weisoft Stock\setdata\1105.txt", True)
 else
  Set a = fs.OpenTextFile("D:\Weisoft Stock\setdata\1105.txt" ,1,0) 
end if
 
   'Do While a.AtEndOfStream <> True
     qq =a.readline
    application.MsgOut qq
    s =split(qq)
     for i=0 to ubound(s)
    
      application.MsgOut  s(i)
    
      next
   
'Loop
 
 a.Close

End Sub

 

本意是想读出行文本文件的一行,后分开.上面的执行了.分开了.按理比如分开后第一个是100,第4个是188.可我就是读不出.

1105.txt 文件如下:

   100          21              21               188             -79             3

 

下面是运行结果:

100
21
21
188
-79
3

 

请朋友帮忙,怎么得到上面的值.就是比如a =100,b=21,c=21,d=188,e=3.

 

 

 

多谢楼上.

这问题我不用split,解决了.看了你的回复,我再来做.一样还是解决不了split的问题.

 

现在还不用考虑转换的事.怎么才能把1105.txt文件(好多行)读出,第一个给a,第二个给b,.......