我正在嘗試從 SEC 檔案中創建一個資料庫。這些檔案以 .tsv 檔案的形式出現，并按年和季度在檔案夾中結構化。Ever 檔案夾包含大約 20 個 .tsv 檔案，我想將它們匯入 Excel 或 Access（以更可行者為準）。每個檔案代表一個表。
有沒有辦法同時匯入所有檔案，而不是單獨匯入每個檔案？或者至少一次一個檔案夾的所有檔案？
是否有已經實作的功能或者我需要使用 Python、Excel 宏等？
uj5u.com熱心網友回復：
歡迎來到 SO！一般來說，這個論壇是根據你的嘗試來回答具體的問題。建議先學習主題再嘗試。
這不是完整的解決方案，您的問題不夠具體。
但是您應該能夠在此示例上進行構建。幾乎只提供檔案回圈方法，并跟蹤每個檔案在作業表中的位置。
注意：當然還有許多其他方法可以做到這一點。這展示了在 Excel 中實作自動化的方法。
Datafile sample: (assume TAB separated)
--------------------
H1 H2 H3
T1 T2 T3
F1 F2 F3
此代碼讀取檔案并匯入，以便 C1R1 是當前單元格。
Option Explicit
'
' sub to do import.
' Make a loop here using list of files
'
Sub TestImport()
Call ImportTextFile("c:\Temp\excelimport.txt", vbTab, ActiveCell)
End Sub
'
' function to import
'
Public Sub ImportTextFile(strFileName As String, strSeparator As String, rngTgt As Range)
Dim strWholeLine As String
Dim rw As Long, col As Long
Dim i As Long, j As Long, ary() As String, a As Variant
Dim wks As Worksheet
Set wks = rngTgt.Parent
Open strFileName For Input Access Read As #1
rw = rngTgt.Row
col = rngTgt.Column
i = rw
Do While Not EOF(1)
Line Input #1, strWholeLine
ary = Split(strWholeLine, strSeparator)
j = col
For Each a In ary
Cells(i, j).Value = a
j = j 1
Next a
i = i 1
Loop
Close 1
Set wks = Nothing
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/473417.html