Accessマクロ、複数csvファイルのインポート時にヘッダーを入れる方法

Question

いつもお世話になっております。

フォルダ配下に日別のlogデータであるCSVファイルが複数あり、Accessのテーブルに全てファイルを取り込むマクロを作成しております。

ネットでサンプルがありましたので、こちらを元にやったところ、インポートは出来たのですが、取り込むCSVにヘッダーがない為？テーブルのヘッダー情報と組み合わせることが上手くいきません。

ーーー実行マクローーーーーーーーーーーーーーーーーーーーー
Private Sub cmdImport()

Dim myFilename As Variant
Dim myPath As Variant

myPath = "C:\CSVfiles"
myFilename = Dir("C:\CSVfiles*.csv")

Do Until myFilename = ""
DoCmd.TransferText acImportDelim, , "テーブル1", myPath & myFilename, False
myFilename = Dir()
Loop

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
こちらで実行するとフィールド名がF1、F2…となってしまいます。（ないので当たり前ですが。）

ヘッダーは
ID オートナンバー型
User 短いテキスト
Date 数値型
Time 数値型
Count 数値型
・
・
・
といった形を希望しています。（最初に自動連番のIDフィールドを入れたいです。取り込むcsvにはありません。）

どなたか方法をご存知の方いらっしゃいましたらご教示頂けますと、幸いです。
何卒、宜しくお願い致します。

Answer 1

インポート先のテーブルを作成してから、インポート定義を作成（テーブルとcsvの項目対比)し
DoCmd.TransferText　でインポート定義をパラメータとして指定して下さい。

テキストファイルをＶＢＡでインポートする方法　※ちょっと記事は古いですが。
インポート定義を使用して、CSVファイルをインポートしたい

Comments

[YusukeKoshiba]

早速のご回答ありがとうございます。

インポート定義を使用するのですね。　今し方やってみましたが、どうもキー違反となってしまいます。
先頭列の自動連番のIDフィールドにcsvの一列目が入ってしまっているのだと思われます。
こちらマクロなどで防ぐことは出来ますでしょうか？
ご回答頂いた中、更に質問で恐れ入りが、ご教示頂けると幸いです。

何卒、宜しくお願い致します。

[sazi]

インポート定義でその項目をスキップする設定ができます。
スキップすれば、IDは自動で振られるのでエラー回避できるかと。