2007年7月19日
【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\03\*.txt")
Do Until myFilename = ""
DoCmd.TransferText acImportDelim, , "T_table", myPath & myFilename, False
myFilename = Dir()
Loop
End Sub
- by editor
- at 22:33
編集長のおすすめの一冊！2010
comments