UWSCからエクセルのマクロを実行

質問

最近UWSCというソフトを使うようになりました。
で、エクセルからSHELLをつかってUWSCを立ち上げ実行し、UWSCの最後に再度エクセルの指定したマクロを実行したいと思っています。

エクセルファイル名= AAA.xls
Excel = GETACTIVEOLEOBJ("Excel.Application" ,エクセルファイル名)
----
中略
----
Excel.Visible = True
ACW(GETID("MICROSOFT EXCEL - " + エクセルファイル名　,"XLMAIN"),-4,-4,1288,1002,0)
CTRLWIN(GETID("MICROSOFT EXCEL"), MAX)
msgbox("完了しました。")
Excel.Application.Run エクセルファイル名 & "!Macro1"

といったようなスクリプトを組んだのですが、なにもないままUWSCが終了してしまいます。
UWSCから指定のエクセルマクロを実行する方法を教えてください。

回答No.2

kokorone · ベストアンサー

マクロＡ実行→ＵＷＳＣ起動→（ＵＷＳＣ終了）→マクロＢ実行
という流れですよね。
ＳＨＥＬＬで起動した場合、起動した直後、マクロＡは終了します。
これは、ＳＨＥＬＬ関数がそのままでは非同期実行だからです。
ＳＨＥＬＬ関数をマクロと同期させ、ＵＷＳＣ終了まで、待機させては
いかがですか？
参照ＵＲＬでその方法が書かれています。

参考URL：

http://www.moug.net/tech/exvba/0150034.htm

お礼

重ねての回答ありがとうございます。
なるほど！こういう方法がありますね。もともとマクロには同期させられないと思っていたので思いもよりませんでした。

確かにUWSCを終了させた時点で、それを判断させればいいのですね。
参考のマクロを利用して組み立ててみます。
本当にありがとうございました。

回答No.1

kokorone

やりたいことがよくわかりません。
というのは、ＥｘｃｅｌからSHELLをつかってUWSCを立ち上げるのですよね？
つまり、マクロからUWSCを起動し、同じＥｘｃｅｌの別のマクロを実行しようとしているのですか？
マクロ実行中は、別のマクロは起動できない（つまり別のマクロを起動した時点で実行中のマクロが強制終了されている）ように思われます。

補足

コメントありがとうございます。

実は、マクロで一通り処理をして、その最後にUWSCを起動し、UWSCで他のアプリケーションの処理を開始します。それと同時に、エクセルのマクロは実行を終了します。
その後UWSCに処理を引き継いだあとで、再度エクセルのマクロに処理を引き継ぎたいと思っています。ですので、エクセルのマクロが実行中に、別のマクロを実行したいのではないのです。
わかりづらい書き方で申し訳ありません。引き続きアドバイス宜しくお願いします。