エクセルVBAから複数のACCESSマクロを実行

Question

エクセルVBAからACCESSマクロを実行する際に、
以下のコードのように1つのマクロを実行することが出来るのですが、
1つのマクロを起動⇒2つ目のマクロを起動といったことは出来るのか、
伺いたく質問をさせて頂きました。

#ACCESSマクロを起動

Sub accessマクロ起動()
Dim oAcc As Object
Dim sPath As String

'MDBパス
sPath = "****"
'MDBオープン
Set oAcc = CreateObject("Access.Application")
Call oAcc.OpenCurrentDatabase(sPath)

myMacro = "マクロ1"

With oAcc
  .DoCmd.RunMacro myMacro     'マクロ実行
  .CloseCurrentDatabase       '閉じる
  .Qu![イメージ説明](6a1a31311654e97ed2a9e16d486ba286.png) With

Set oAcc = Nothing

End Sub

お手数をお掛け致しますが、ご回答の程、よろしくお願いいたします。。

Answer 1

別のマクロの起動は、マクロ名を指定すれば可能です。
ですが連続して実行且つマクの処理が終了してから次のマクロというように制御したいのであれば、DoCmdは非同期実行ですので処理方式を変更する必要があります。

・Access側で実行したいマクロを統合したものを作成しそれを起動。
・Access側Public　Functionを用意して、Runメソッドで起動。

他アプリを起動する

Runメソッドの第3引数には、プログラムの実行が終了するまで待つかどうか、をTrue/Falseで指定できます。

Application メソッド (Access)

Comments

[momodebi]

早速回答頂き、ありがとうございます。
当方、初心者のため大変お手数ですが、マクロの統合というのがどのようにやるかが分からない状況です。
調べましたが、分かりませんでした。
お手数をお掛け致しますが、ご教示頂けますと幸いです

[momodebi]

また、
実行且つマクの処理が終了してから次のマクロを実行したいため、その場合はエクセルVBAでの実施は難しいのでしょうか？？
頂いた回答には、ACCESS側でRUNメソッドを行うとの記述がありました故

[sazi]

処理の順序を決めて実行するには、処理の実行の完了を制御する必要があります。
紹介したRunメソッドはその為の引数があります。

エクセルからAccessの処理をRunメソッドで呼び出すのは以下を参考にして下さい。
Excel-VBA-からAccessのマクロ(Mobule内のプロシージャ)を実行するマクロ
(http://eprostation.jpn.org/code/vba/vba0007.html)

[sazi]

マクロの統合で一番簡単なのは、新規マクロを作成し、そのマクロ内で既存のマクロを実行するようにします。

[momodebi]

色々とありがとうございます。
何とか複数のマクロは実行できたのですが、
今度は
'''
#エクセルVBAのコード
Sub access2()
Application.ScreenUpdating = False
Dim oAcc As Object
Dim sPath As String

'MDBパス
sPath = "*****"

'MDBオープン
Set oAcc = CreateObject("Access.Application")
Call oAcc.OpenCurrentDatabase(sPath)

With oAcc
.Run "実行"
.CloseCurrentDatabase '閉じる
.Quit
End With

Set oAcc = Nothing

MsgBox "完了しました"
End Sub
'''

'''
#ACCESS上のコード
Public Sub 実行()

DoCmd.RunMacro "マクロ1"

End Sub
'''

とし、マクロ1には複数のマクロを登録しています。
するとエクセルVBAから実行すると、ACCESS上で「runmacro アクションの実行は取り消されました」とのエラーが出てしまいます。
但し、エクセルVBAをかまさず、ACCESSからマクロ1を実行する分にはエラーが出ない状況です。
お知恵を貸していただけますと幸いです...

[Y.H.]

momodebi さん
別の課題/問題は別の質問にされたほうがいいですよ。

[momodebi]

了解しました。
一旦本質問は閉じて別の質問で行います。
ありがとうございました。