過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     550
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼auto_openについて。  おじょう 03/1/15(水) 15:43
　　　┗Re:auto_openについて。【解決しました。】  おじょう 03/1/15(水) 18:09

　───────────────────────────────────────
　■題名 ： auto_openについて。
　■名前 ： おじょう
　■日付 ： 03/1/15(水) 15:43
　-------------------------------------------------------------------------
   
こんにちは。教えてください。



ループしながらExcelブック（test1.xls、test2.xls・・・）を開き、

auto_openマクロの処理をしたいのですが、

奇数回目のループで開かれるauto_openは処理されますが、

偶数回目のループで開かれるauto_openは処理されません。



Sub ボタン1_Click()



　　　　For Count = 1 To 15

　　　　　　　　MsgBox Count & "回目のﾙｰﾌﾟ "

　　　　　　　　FileName = "test" & Count & ".xls"

　　

　　　　　　　　Workbooks.Open FileName:=FileName

　　　　　　　　ActiveWorkbook.RunAutoMacros xlAutoOpen

　　　　　　　　Workbooks(FileName).Close



　　　　Next Count



End Sub



'test1.xls

Sub auto_open()



　　　　MsgBox "test1 open !!"



End Sub



'test2.xls

Sub auto_open()



　　　　MsgBox "test2 open !!"



End Sub



・

・

・



上記のようなコーディングですが、どうしたらうまく行くでしょうか？

よろしくお願いします。


　───────────────────────────────────────
　■題名 ： Re:auto_openについて。【解決しました。】
　■名前 ： おじょう
　■日付 ： 03/1/15(水) 18:09
　-------------------------------------------------------------------------
   
>　　　　　　　　ActiveWorkbook.RunAutoMacros xlAutoOpen

　　　　　　　　　　　　　　　　↓

　　　　　　　　Application.Run FileName & "!auto_open"



上記のようにしてみたら、うまく行きました。

失礼しました…。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     550