外部のアクセスデータベースのVBAを動かす方法

以下のように外部のデータベースに接続することで、他のデータベースにあるVBAを動かすことができます。

Sub connectionDb()
  Dim ws As Workspace
  Set ws = DBEngine.Workspaces(0)
  Dim db As DAO.Database
  Set db = ws.OpenDatabase(“c:\gaibudb.mdb”)
  Debug.Print “外部のデータベースに接続しました。”

  db.Close
  Set db = Nothing
  ws.Close
  Set ws = Nothing
  Debug.Print “外部のデータベースを切断しました。”
End Sub

関連投稿: