Re: [問題] VBA讀取TXT格式問題
※ 引述《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
→
07/03 17:46, , 1F
07/03 17:46, 1F
→
07/03 17:49, , 2F
07/03 17:49, 2F
→
07/03 17:49, , 3F
07/03 17:49, 3F
→
07/03 18:00, , 4F
07/03 18:00, 4F
→
07/03 18:30, , 5F
07/03 18:30, 5F
→
07/03 18:37, , 6F
07/03 18:37, 6F
→
07/03 18:38, , 7F
07/03 18:38, 7F
→
07/03 18:53, , 8F
07/03 18:53, 8F
→
07/03 18:55, , 9F
07/03 18:55, 9F
→
07/03 19:04, , 10F
07/03 19:04, 10F
→
07/03 19:04, , 11F
07/03 19:04, 11F
→
07/03 20:18, , 12F
07/03 20:18, 12F
→
07/09 09:12, , 13F
07/09 09:12, 13F
→
07/09 09:12, , 14F
07/09 09:12, 14F
→
07/09 11:29, , 15F
07/09 11:29, 15F
→
07/09 11:31, , 16F
07/09 11:31, 16F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章