BLOG Tokyo | 【ACCESS】フォルダ内のテキストファイルを一括取り込み

フォルダ内のテキストファイル（csv）をテーブルに一括取り込みしたい場合がある。どうすれば良いか。 DoCmd.TransferTextというインポートコマンドを使うと便利だ。 Dir関数内では「＊」ワイルドカードを使えるので、myFilenameが空になるまでループさせる。 （Dir関数はファイル名を取得する関数で、()パスを指定しないとカレントフォルダを検索する） インポート先のテーブルはフィールド名なし（最後の引数）を指定すると、"f1,f2......"とう名前をデフォルトで探す。カンマが多い場合は、f100くらいまで作っておくと安全だ。 Private Sub cmdImport() Dim myFilename As Variant Dim myPath As Variant myPath = "C:\mfind\03\" myFilename = Dir("C:\mfind\