作者aup65797 (有緣人)
看板Office
標題Re: [問題] VBA讀取TXT格式問題
時間Sun Jul 3 17:35:09 2016
※ 引述《aup65797 (有緣人)》之銘言：
: (若是和其他不同軟體互動之問題 請記得一併填寫)
: 軟體:Office
: 版本:2010
: 以下是.txt檔的內容
: 0, 1, 1, 1,
: 希望讀取讀取到office裡的格式
: 0 1 1 1
: 增加這個程式但不能使用
: .TextFileOtherDelimiter = ","
: 請各位大師幫忙解答
附上Codes 我試了一下您的方法讀到excel檔會是
0無資料1無資料1無資料1 ====>我需要把無資料那攔刪除 , 如同你的圖示那樣
Do
If xChk = 0 Then
xFile = Dir(ThisWorkbook.Path & "\*.txt")
If xFile = "" Then MsgBox "※找不到 TXT 檔案！ ", 0 + 16: Exit Sub
xChk = 1
Else
xFile = Dir
If xFile = "" Then Exit Do
End If
'----------------------------------------------
uFile = ThisWorkbook.Path & "\" & xFile
Set uHead = Range("A65536").End(xlUp)
uHead.Value = xFile
Set uHead = uHead(2, 1)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & uFile, Destination:=uHead)
.AdjustColumnWidth = False
.TextFileOtherDelimiter = " " '冒號
.TextFileCommaDelimiter = True '逗號
.Refresh BackgroundQuery:=False
.Delete
End With
uHead.Interior.ColorIndex = 6 '每筆第一格加〔黃色〕底
NEXT_LINE
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.82.52.175
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1467538511.A.59C.html
→ soyoso: 提供txt檔覺得會比較清楚原po的格式 07/03 17:46
→ aup65797: .txt file和你的一樣 , 套用你的codes ,我就會有空格出 07/03 17:49
→ aup65797: 現 07/03 17:49
→ aup65797: 一樣會有空格出現 07/03 18:30
→ soyoso: 測試的xls檔和txt檔，因無看到儲存格內有空格 07/03 18:38
→ aup65797: Sorry , txt檔格式為0,Tab1,Tab,1Tab,1 07/03 18:53
→ aup65797: 更正txt檔內容為0,Tab1,Tab1,Tab1, 07/03 18:55
→ soyoso: 看是否是有符合原po格式 07/03 19:04
→ aup65797: 感謝大大 , 問題解決了 07/03 20:18
→ aup65797: 可以讀取 , 但會延伸一個問題 , 數字複製貼到.txt記事本 07/09 09:12
→ aup65797: 會有" "的符號出現 07/09 09:12
→ soyoso: 將textfiletabdelimiter改為true 07/09 11:29