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\
