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