クラスの作成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のマクロ実行中」が表示されます。