作者aup65797 (有缘人)
看板Office
标题Re: [问题] VBA读取TXT格式问题
时间Sat Jul 9 20:59:41 2016
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://webptt.com/cn.aspx?n=bbs/Office/M.1468069184.A.DB2.html
1F：→ soyoso: 加上textfileconsecutivedelimiter=true 试试 07/09 21:18
2F：→ azteckcc: 把你的 TXT 传上来，个人猜你的txt里 07/09 21:18
3F：→ azteckcc: 可能会有状况，比如同时有分隔符同时有tab和逗号 07/09 21:20
6F：→ aup65797: 还是一样不行ㄟ 07/09 21:28
7F：→ aup65797: 就是同时有逗号和Tab 07/09 21:31
8F：→ aup65797: 成功了..感谢S大 07/09 21:38
9F：→ soyoso: 测试上将连结内TextFileTabDelimiter改为true再加上回文第 07/09 21:41