※ 引述《aup65797 (有缘人)》之铭言：
: (若是和其他不同软件互动之问题 请记得一并填写)
: 软件:Office
: 版本:2010
: 以下是.txt档的内容
: 0, 1, 1, 1,
: 希望读取读取到office里的格式
: 0 1 1 1
: 增加这个程式但不能使用
: .TextFileOtherDelimiter = ","
: 请各位大师帮忙解答
附上Codes 我试了一下您的方法读到excel档会是
0无资料1无资料1无资料1 ====>我需要把无资料那拦删除 , 如同你的图示那样
Do
If xChk = 0 Then
xFile = Dir(ThisWorkbook.Path & "\*.txt")
If xFile = "" Then MsgBox "※找不到 TXT 档案！　", 0 + 16: Exit Sub
xChk = 1
Else
xFile = Dir
If xFile = "" Then Exit Do
End If
'

提供txt档觉得会比较清楚原po的格式

.txt file和你的一样 , 套用你的codes ,我就会有空格出现

http://imgur.com/z8ajGN5 那改为这样呢？

一样会有空格出现

https://goo.gl/PkNhIX https://goo.gl/Hx4SI3 两个连结为测试的xls档和txt档，因无看到储存格内有空格

Sorry , txt档格式为0,Tab1,Tab,1Tab,1更正txt档内容为0,Tab1,Tab1,Tab1,

https://goo.gl/PkNhIX https://goo.gl/Hx4SI3 修改请重下看是否是有符合原po格式

感谢大大 , 问题解决了