※ 引述《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格式

感謝大大 , 問題解決了