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