Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2765 / 9994

←次へ　｜　前へ→


	【10497】個人用マクロブックのマクロを実行したい

みみ - 08/8/6(水) 15:49 -


	引用なし

	パスワード

宜しくお願いいたします。

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）

修正点を教えていただけると大変助かります。

宜しくお願いします。

610 hits

▼

【10497】個人用マクロブックのマクロを実行したい みみ 08/8/6(水) 15:49