VBAでAccessにCSVインポート出来ません。

Question

前提・実現したいこと

VBAでAccessにCSVインポート→クエリ実行でテーブル作成→excelエクスポートを作っています。
インポート機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

「ﾃｷｽﾄﾌｧｲﾙの指定'CSV定義が存在しません'この指定を使用してインポートできません」

該当のソースコード

Option Compare Database
Option Explicit

Sub txtfile_inport_sample()

'インポート

DoCmd.TransferText acImportDelim, "CSV定義", "テーブル1", "C:\Users\user\Desktop\木村 local保存用\Access勉強\神奈川店舗一覧 .csv", True, ""

End Sub

試したこと

フルパスにCSVファイルが存在することの確認。
新規Accessを起動し、まっさらな状態での再試行

補足情報（Access2010 Windows7）

Comments

[papinianus]

https://www.sk-access.com/mailmaga/vol123.html を参照したと思われますが、まっさらな状態では絶対に成功しません。(1)の定義ファイルの作成をやってみてください。

[kobearen]

おっしゃる通りのURLを参考にしていました。(1)の定義ファイルの作成をしましたが、同じエラーが発生します。

Answer 1

エラーメッセージを見る限り、質問への追記でpapinianusさんが指摘されている通り
定義ファイルが無いのではないかと思われます。

定義ファイルはちゃんと保存しましたか？
保存する際に名前は「CSV定義」にしましたか？
確認も兼ねて、もう一度定義ファイルを作成してからVBA実行してみてはいかがでしょうか。

また、定義ファイルの名前を表示させるSQLを記載しておきます。
これをコピペしてSQLビューで実行してみてください。
何も出てこなければ、定義ファイルが保存されていません。

SELECT
  MSysIMEXSpecs.SpecName AS 定義ファイル名,
  MSysIMEXColumns.FieldName AS 対象フィールド
FROM MSysIMEXSpecs INNER JOIN MSysIMEXColumns 
  ON MSysIMEXSpecs.SpecID = MSysIMEXColumns.SpecID;