看板
[ Office ]
討論串[問題] VBA讀取TXT格式問題
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
Sub test(). Dim qt As QueryTable. Set qt = ActiveSheet.QueryTables.Add("TEXT;d:\20160703.txt", [a1]). With qt. .AdjustColumnWidth = False. .TextFilePa
(還有168個字)
內容預覽:
附上Codes 我試了一下您的方法讀到excel檔會是. 0無資料1無資料1無資料1 ====>我需要把無資料那攔刪除 , 如同你的圖示那樣. Do. If xChk = 0 Then. xFile = Dir(ThisWorkbook.Path & "\*.txt"). If xFile = ""
(還有598個字)
首頁
上一頁
1
下一頁
尾頁