| |
宜しくお願いいたします。
AccessからExcelのpersonal（個人用マクロブック）マクロを実行
させたいのですが、「・・マクロ名が見つかりません」と表示され実行できません。
以下コードです。
------------------------------ここから（Class module）
Private objXls As Excel.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 ("マクロの名前")
objXls.Workbooks.Close
End Function
------------------------------ここまで（Class module）
------------------------------ここから（module）
Sub MS読込前処理()
Dim xls As Excel.Application
Dim cls As Class1
Set xls = New Excel.Application
Set cls = New Class1
cls.objExcel = xls
cls.Excel_Exe ("C\ファイル名.xls")
Set xls = Nothing
Set cls = Nothing
End Sub
------------------------------ここまで（module）
修正点を教えていただけると大変助かります。
宜しくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
