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


'--------------- [Module6] ---------------

Private Sub apitest6()
  'Accessアプリケーションのクラス名を指定
  Dim myAccess As Access.Application
  
  'Access が事前に起動されていたかを調べ､
  'エラーの中断を留保する
  On Error Resume Next
    
  '第1引数を指定せずに GetObject 関数を
  '呼び出すと、Access のインスタンスへの
  '参照が返される
  Set myAccess = GetObject(, "Access.Application")
  
  '事前に Access が起動されていない場合に
  'エラーが発生する(Err.Number真 <> 0)
  If Err.Number <> 0 Then
    Err.Clear  'エラーが発生した場合(Err.Number <> 0)
               'Err オブジェクトをクリアする
               
    'Accessアプリケーションのインスタンスを生成する
    Set myAccess = CreateObject("Access.Application")
    
    'Accessアプリケーションを可視状態にする
    myAccess.Visible = True
  End If
  
  MsgBox "Access起動テスト" & Chr(13) & _
         "No.2 を終了します."
  myAccess.Quit
  Set myAccess = Nothing
End Sub
'-----------------------------------------


VBAPI No.1 へ戻る.
VBAPI No.3 へ移る.　　　　　　　　　　　　　　　　　　　　　　　　back top