Sub test()
Dim qt As QueryTable
Set qt = ActiveSheet.QueryTables.Add("TEXT;d:\20160703.txt", [a1])
With qt
.AdjustColumnWidth = False
.TextFileParseType = xlDelimited
.TextFileTabDelimiter = True
.TextFileCommaDelimiter = True
.Refresh
End With
End Sub
用以上方式 , excel讀取會空一格 , 麻煩大大
https://www.dropbox.com/s/4uxgfuykhl0h6ix/VBA%20TAB%20format.PNG?dl=0

加上textfileconsecutivedelimiter=true 試試

把你的 TXT 傳上來，個人猜你的txt裡可能會有狀況，比如同時有分隔符同時有tab和逗號

https://www.dropbox.com/s/88gazmhtbbr1bu9/20160709.thttps://www.dropbox.com/s/z0b61z2rf63x9xy/20160709_1還是一樣不行ㄟ就是同時有逗號和Tab成功了..感謝S大

測試上將連結內TextFileTabDelimiter改為true再加上回文第一筆的部分，應可https://imgur.com/LGBAe2D