Re: [問題] VBA讀取TXT格式問題

[aup65797 (有緣人)]

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

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.241.96.6
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1468069184.A.DB2.html
→ soyoso: 加上textfileconsecutivedelimiter=true 試試
→ azteckcc: 把你的 TXT 傳上來，個人猜你的txt裡
→ azteckcc: 可能會有狀況，比如同時有分隔符同時有tab和逗號
→ aup65797: https://www.dropbox.com/s/88gazmhtbbr1bu9/20160709.t
→ aup65797: https://www.dropbox.com/s/z0b61z2rf63x9xy/20160709_1
→ aup65797: 還是一樣不行ㄟ
→ aup65797: 就是同時有逗號和Tab
→ aup65797: 成功了..感謝S大
→ soyoso: 測試上將連結內TextFileTabDelimiter改為true再加上回文第
→ soyoso: 一筆的部分，應可https://imgur.com/LGBAe2D