Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10240 / 13644 ツリー ←次へ | 前へ→

【22843】auto_openについて あっくん 05/3/4(金) 18:56 質問[未読]
【22844】Re:auto_openについて あっくん 05/3/4(金) 18:58 発言[未読]
【22848】Re:auto_openについて ichinose 05/3/4(金) 20:05 発言[未読]
【22954】Re:auto_openについて あっくん 05/3/8(火) 16:59 お礼[未読]

【22843】auto_openについて
質問  あっくん  - 05/3/4(金) 18:56 -

引用なし
パスワード
   はじめまして。現在3つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより3つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中にauto_openがあって、ボタンには
Sub オープン()
Workbooks.Open "C:\book1.xls"
  ActiveWorkbook.RunAutoMacros xlAutoOpen
Workbooks.Open "C:\book2.xls"
  ActiveWorkbook.RunAutoMacros xlAutoOpen
Workbooks.Open "C:\book3.xls"
  ActiveWorkbook.RunAutoMacros xlAutoOpen

End Sub
のようなサブルーチンを入れたのですが、book1しかxlauto_openが働いてくれません。なのでbook1のなかに

Workbooks.Open "C:\book2.xls"
  ActiveWorkbook.RunAutoMacros xlAutoOpen
を入れて、book3に
Workbooks.Open "C:\book3.xls"
  ActiveWorkbook.RunAutoMacros xlAutoOpen
を入れてみたりもしましたが結果は駄目でした。どうにかして表紙ボタンでマクロを起動させた3つのbookを開きたいのですが、どうしたらいいかわかりません。どうかいい方法ありましたらおしえてください。お願いします。

【22844】Re:auto_openについて
発言  あっくん  - 05/3/4(金) 18:58 -

引用なし
パスワード
   すいません。誤字がありました。
を入れて、book3に
>Workbooks.Open "C:\book3.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
ではなく
を入れて、book2に
>Workbooks.Open "C:\book3.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
でした。宜しくお願いします。

▼あっくん さん:
>はじめまして。現在3つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより3つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中にauto_openがあって、ボタンには
>Sub オープン()
>Workbooks.Open "C:\book1.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
>Workbooks.Open "C:\book2.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
>Workbooks.Open "C:\book3.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
>
>End Sub
>のようなサブルーチンを入れたのですが、book1しかxlauto_openが働いてくれません。なのでbook1のなかに
>
>Workbooks.Open "C:\book2.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
>を入れて、book3に
>Workbooks.Open "C:\book3.xls"
>  ActiveWorkbook.RunAutoMacros xlAutoOpen
>を入れてみたりもしましたが結果は駄目でした。どうにかして表紙ボタンでマクロを起動させた3つのbookを開きたいのですが、どうしたらいいかわかりません。どうかいい方法ありましたらおしえてください。お願いします。

【22848】Re:auto_openについて
発言  ichinose  - 05/3/4(金) 20:05 -

引用なし
パスワード
   ▼あっくん さん:
こんばんは。
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

ここで類似のご質問がありました。

【22954】Re:auto_openについて
お礼  あっくん  - 05/3/8(火) 16:59 -

引用なし
パスワード
   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
>
>ここで類似のご質問がありました。

10240 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free