[發問] 跨檔案抓資料.txt

linsurvey2005

請問如何把資料複製、貼上到EXCEL裡面的儲存格，有幾百個檔案要抓好多次，好頭痛。

下載 (8.05 KB)

2021-7-15 15:16

准提部林

Sub 載入文字檔()
Dim PH$, FN$, Arr(1 To 30000, 1 To 3), j%, N&, T, TR
ActiveSheet.UsedRange.ClearContents
PH = ThisWorkbook.Path & "\GRD File\"
Do
   If FN = "" Then FN = Dir(PH & "*.grd") Else FN = Dir
   If FN = "" Then Exit Do
   Open PH & "\" & FN For Input As #1
   While Not EOF(1)
         Line Input #1, T
         TR = Split(T & "  ", " "): N = N + 1
         For j = 0 To 2
             Arr(N, j + 1) = TR(j)
         Next j
   Wend
   Close #1
Loop
If N > 0 Then [a1].Resize(N, 3) = Arr
End Sub

TEST001.rar (8.44 KB)

下載次數: 7

2021-7-17 07:47

======================

ML089

也可以利用DOS指令合併

WIN 執行 CMD 指令，開啟DOS
CD 到你的目錄
COPY *.grd All_grd.txt
將所有 grd檔案全部合併成一個檔案，在ECELE在開啟或匯入

laigs218

樓上的方以可以變更一下為  CSV檔案會更好一點
OPY *.grd All_grd.CSV