質問: Dir() Loop End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー こちらで実行するとフィールド名がF1、F2...となってしまいます。(ないので当たり前ですが。) ヘッダーは ID オートナンバー型 User 短いテキスト Date 数値型 Time 数値型 Count 数値型 ・ ・ ・ といった形を希望しています。(最初に自動連番のIDフィールドを入れたいです。取り込むcsvにはありません。) どなたか方法をご存知の方いらっしゃいましたらご教示頂けますと、幸いです。 何卒、宜しくお願い致します。
回答: インポート先のテーブルを作成してから、インポート定義を作成(テーブルとcsvの項目対比)し DoCmd.TransferText でインポート定義をパラメータとして指定して下さい。 テキストファイルをVBAでインポートする方法 ※ちょっと記事は古いですが。 インポート定義を使用して、CSVファイルをインポートしたい