アクセス２０００のインポートについて

質問

アクセル２０００使っています。
アクセルファイルのテーブルをインポートしていますが、１００個ぐらいあるので、インポートするのも大変で間違います。自動に一気に取り込む方法は無いでしょうか？１００個のファイル名一覧はテーブルとしてあります。プログラムは少しなら組めますが何か良い方法はないでしょうか？１００個ファイルのテーブルはテーブル名も項目も一致しています。

回答No.1

papayuka · ベストアンサー

こんにちは。

ハズしている可能性大ですが、こんな意味でしょうか？

Sub test()
Dim myPath As String, Rs As Recordset
myPath = "C:\windows\デスクトップ\"
Set Rs = CurrentDb.OpenRecordset("ファイル名テーブル", DB_OPEN_SNAPSHOT)
Do While Rs.EOF = False
　DoCmd.TransferDatabase acImport, "Microsoft Access", _
　　　　　myPath & Rs![ファイル名フィールド], acTable, _
　　　　　"取りこむテーブル名", "取り込んだテーブル"
　Rs.MoveNext
Loop
End Sub

お礼

教えていただいた方法にテーブルの作成とデータの追加クエリーでできました。ありがとうございました