Access VBAでファイルのインポートについて

質問

あるディレクトリにAccessのmdbファイルを置き、「インポート」フォルダを隣に置きます。
このフォルダ内にCSVファイルを置き、それをVBAでテーブル「tbl_import」にインポートさせたいのです。
ちなみにインポート後はディレクトリ「インポート」下層のディレクトリ「インポート済」に移動させたいのです。

下記例文では「file.csv」と書いていますが、このファイル名はインポートの都度、常に変わります。
インポートさせるファイルは常に一つです。

「*」を用いれば出来ると思っていたのですが、うまくいきません。
良い方法を教示いただけませんか。

DoCmd.RunSQL "DELETE * FROM tbl_import"
DoCmd.TransferText acImportDelim, "インポート定義", "tbl_import", CurrentProject.Path & "\インポート\file.csv", True
FileCopy CurrentProject.Path & "\インポート\file.csv", CurrentProject.Path & "\インポート\インポート済\file.csv"
Kill CurrentProject.Path & "\インポート\file.csv"

回答No.1

m3_maki · ベストアンサー

こんな感じで。

Dim strFile As String
Dim strPath As String

strPath = CurrentProject.Path & "\インポート\"

strFile = Dir(strPath & "*.csv")
If strFile <> "" Then
　　DoCmd.RunSQL "DELETE * FROM tbl_import"
　　DoCmd.TransferText acImportDelim, "インポート定義", "tbl_import", strPath & strFile, True
　　Name strPath & strFile As strPath & "インポート済\" & strFile
End If

お礼

ありがとうございます。お陰様で目的の処理をさせることができました。篤く御礼申し上げます。