アクセスVBA 特定のフォルダの中身のタイトルを一回だけフィールド名にして全部読み込むマクロ

Pocket

件名通りです、ご査収ください
同じフォーマット、同じタイトル付きのCSVファイルを大量に読み込む場合に使います

[vba]
Option Compare Database

Sub foo()
‘適当に決める
Path = “C:\Users\a\Desktop\test”
テーブル名 = “tablename”

Set fso = CreateObject(“Scripting.FileSystemObject”)
初回フラグ = True
For Each f In fso.GetFolder(Path).Files
‘初回以外は最初の行を削除
If Not 初回フラグ Then
Set File = fso.OpenTextFile(f)
File.SkipLine
Text = File.ReadAll
File.Close
Set File = fso.OpenTextFile(f, 2)
File.Write Text
File.Close
End If
‘インポートはこの一行だけ
DoCmd.TransferText acImportDelim, , テーブル名, f
Next
End Sub

[/vba]