|
ichinoseさん。レス遅くなって申し訳ありませんでした。ちょっと出張にでかけてまして。さっそくためしてみました。出来ました!!!ActiveWorkbook.RunAutoMacros xlAutoOpen
じゃなく、
Application.Run "book1.xls!auto_open"
にしたらできました。
ありがとうございました。
▼ichinose さん:
>▼あっくん さん:
>こんばんは。
>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
>
>ここで類似のご質問がありました。
|
|