返回列表下一主題上一主題發帖

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

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-15 15:17 | 只看該作者

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

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

數據資料.rar (150 Bytes)

文字檔

樓主熱帖

開心學習,學習很開心

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

2^#

發表於 2021-7-17 07:47 | 只看該作者

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)

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

TOP

ML089