スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
クラスの作成5(オブジェクト型プロパティの設定)を利用してACCESSからEXCELマクロを実行させます。
ここでは「d:\商品.xls」のマクロ「message」を実行させています。このマクロ「message」はメッセージボックスに「商品.xlsのマクロ実行中」を表示させます。

●サンプルコード●
クラスモジュールに以下のコードを記述します。

Private objXls As .Application

Public Property Set objExcel(ByRef objExcel As Excel.Application)
    Set objXls = objExcel
 End Property

Public Property Get objExcel() As Excel.Application
 Set objExcel = objXls
End Property

Public Property Let objExcel(ByRef objExcel As Excel.Application)
    Set objXls = objExcel
 End Property

Public Function Excel_Exe(FileName1)
 objXls.Workbooks.Open FileName:=FileName1
  objExcel.Application.Run ("message")
 objXls.Workbooks.Close
End Function

モジュールに以下のコードを記述します。

Sub Class_Sample6()
   Dim xls As Excel.Application
  Dim cls As class4
  Set xls = New Excel.Application
  Set cls = New class4
  cls.objExcel = xls
  cls.Excel_Exe ("d:\商品.xls")
  Set xls = Nothing
  Set cls = Nothing
End Sub

(実行結果)
メッセージボックスに「商品.xlsのマクロ実行中」が表示されます。