|
▼あっくん さん:
こんばんは。
RunAutoMacrosメソッドには、いくつか問題があって、この処理がうまく動作しないみたいですよ!!
>はじめまして。現在3つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより3つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中にauto_openがあって、ボタンには
>Sub オープン()
>Workbooks.Open "C:\book1.xls"
' ActiveWorkbook.RunAutoMacros xlAutoOpen
Application.Run "book1.xls!auto_open"
'にしてみて下さい。
doevents
>Workbooks.Open "C:\book2.xls"
' ActiveWorkbook.RunAutoMacros xlAutoOpen
Application.Run "book2.xls!auto_open"
doevents
>Workbooks.Open "C:\book3.xls"
' ActiveWorkbook.RunAutoMacros xlAutoOpen
Application.Run "book3.xls!auto_open"
doevents
>End Sub
但し、呼び出されたAuto_Openでどんなコードを書いているかも問題になります。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=22505;id=excel
ここで類似のご質問がありました。
|
|