| |
▼よしあき さん：
こんにちは。
Excelの標準モジュールに書かれたマクロ(VBAのコード)であれば、
以下のコードでAccess側から実行する事は可能です。
Function MacroRun()
Dim xlsApp As Object
Dim xlsWkb As Object
Dim OutFile As String
Dim MacroName As String
OutFile = "C:\MacroTest.xls" '出力のエクセルファイル
MacroName = "マクロ1" '実行しているマクロの名前
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Open(OutFile)
xlsApp.Run xlsApp.ActiveWorkbook.Name & "!" & MacroName
xlsWkb.Close (True): Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
End Function
↑のコードをAccessのマクロですと「プロシジャの実行」で呼び出せば、
Excelのマクロが実行されます。
※こちらの掲示板ではマルチポスト（複数の掲示板にまったく同じ話題を
投稿すること）容認されてますが、他の掲示板には禁止となっている所も
もちろんあります。気をつけましょう。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
