Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10242 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより３つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中に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
を入れてみたりもしましたが結果は駄目でした。どうにかして表紙ボタンでマクロを起動させた３つの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つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより３つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中に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
>を入れてみたりもしましたが結果は駄目でした。どうにかして表紙ボタンでマクロを起動させた３つのbookを開きたいのですが、どうしたらいいかわかりません。どうかいい方法ありましたらおしえてください。お願いします。
【22848】Re:auto_openについて
発言  ichinose  - 05/3/4(金) 20:05 -
引用なし
パスワード
   ▼あっくん さん：
こんばんは。
RunAutoMacrosメソッドには、いくつか問題があって、この処理がうまく動作しないみたいですよ！！

>はじめまして。現在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つのブックにそれぞれマクロを組んで、表紙を作り、表紙のボタンより３つのブックを立ち上げたいと思っています。そしてそれぞれのブックの中に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
>
>ここで類似のご質問がありました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10242 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free