access vba 別ファイルのデータをインサート

 

Public Sub tensou()

On Error GoTo E

    Dim myDB As Database
    Dim myTD As TableDef

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb

    'データベース内のテーブル名前を表示する
    For Each myTD In myDB.TableDefs
        '別ファイルのテーブル名からデータを転送する
        If Left(myTD.Name, 4) <> "MSys" Then
            Debug.Print myTD.Name
            CurrentDb.Execute "INSERT INTO " & myTD.Name & " SELECT * FROM " &    myTD.Name & " IN 'D:\work\sample.mdb';"
        End If
    Next

ExitSub:
    MsgBox ("おわり")
    Exit Sub

E:
    MsgBox Err.Description
    Resume ExitSub

End Sub

 

 

Access編:他のMDBファイルからデータのみを移行する方法 | とあるプログラマーの覚書