Access csvファイル内容取＆ファイル名取得
解決したいこと
Access_VBAを使ってcsvファイルの内容とファイル名を取得したいのです。
解決方法をご教示お願いします。
If MsgBox("ファイルを取り込みしますか？", vbOKCancel) = vbCancel Then
MsgBox "処理を停止します"
Else
Dim file_path As String
Dim buf As String
file_path = "\\**\Interface\SPApp\input\back\"
buf = Dir(file_path & "sagyosiji*.csv")
Do While buf <> ""
'T_住所にCSVファイルをインポート
DoCmd.TransferText acImportDelim, , "T_sagyosiji", file_path & buf, False, ""
'取り込み終わったCSVファイルを削除
' Kill file_path & buf
buf = Dir()
Loop
MsgBox "処理完了"
End If
0