最初に Excel VBA の VBエディタ において、次の設定を行う。
VBE - ツール - 参照設定 - (レ)Microsoft Access 9.0 Object Library


'--------------- [Module5] ---------------

Private Sub apitest5()
  'Accessアプリケーションのクラス名
  'を指定し、インスタンスを生成する
  'Dim myAccess As New Access.Application
  Dim myAccess As Access.Application
  Set myAccess = CreateObject("Access.Application")
  
  'Accessアプリケーションを可視状態にする
  myAccess.Visible = True
  
  MsgBox "Access起動テスト" & Chr(13) & _
         "No.1 を終了します."
  myAccess.Quit
  Set myAccess = Nothing
End Sub
'-----------------------------------------


(補足)
  Dim myAccess As Access.Application
  Set myAccess = CreateObject("Access.Application")

　の２行を、次の１行で置き換えてもよい。

  Dim myAccess As New Access.Application

'-----------------------------------------


VBAPI No.2 へ移る.　　　　　　　　　　　　　　　　　　　　　　　　back top