Excel VBA質問箱 IV

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

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


38606 / 76738 ←次へ | 前へ→

【43265】Re:ブックを開いて30秒後にマクロを実行
質問  あおがえる  - 06/10/7(土) 15:07 -

引用なし
パスワード
   >いつも皆様にお世話になっています。初歩的な質問で申し訳ないのですが。
>Aブックを開いて30秒後にAブックのマクロ1を実行、上書き保存をしてAブックを閉じ、次にBブックを開いて30秒後にBブックのマクロ1を実行、上書き保存をしてBブックを閉じ、次にCブックを開いて・・・・・
>という動作をさせたいのですがどうすればいいでしょうか?
>よろしくお願いします。

すみません質問の仕方が悪かったようです。
上記のコードをマクロ記録で作ってみました
Sub 更新()

  ChDir "D:\Data1"
  Workbooks.Open Filename:= _
    "D:\Data1\Book1.xls"
  Application.Run "'Book1.xls'!Macro1"
  ActiveWorkbook.Save
  ActiveWindow.Close

  ChDir "D:\Data2"
  Workbooks.Open Filename:= _
    "D:\Data2\Book2.xls"
  Application.Run "'Book2.xls'!Macro1"
  ActiveWorkbook.Save
  ActiveWindow.Close

End Sub

上記のコードのApplication.Run "'Book1.xls'!Macro1"を単純にApplication.OnTime Now() + TimeValue("00:00:30"), "'Book1.xls'!Macro1"
と書き換えてみたのですがやっぱり作動しませんでした。
基本的に間違っているようなのですが分かりません、どうかお願いいたします。
0 hits

【43260】ブックを開いて30秒後にマクロを実行 あおがえる 06/10/7(土) 10:23 質問
【43261】Re:ブックを開いて30秒後にマクロを実行 だるま 06/10/7(土) 11:24 回答
【43262】Re:ブックを開いて30秒後にマクロを実行 Hiroko 06/10/7(土) 13:29 発言
【43265】Re:ブックを開いて30秒後にマクロを実行 あおがえる 06/10/7(土) 15:07 質問
【43270】Re:ブックを開いて30秒後にマクロを実行 [名前なし] 06/10/7(土) 16:13 発言
【43283】Re:ブックを開いて30秒後にマクロを実行 [名前なし] 06/10/7(土) 22:02 発言
【43315】Re:ブックを開いて30秒後にマクロを実行 Hiroko 06/10/9(月) 9:40 発言
【43341】Re:ブックを開いて30秒後にマクロを実行 あおがえる 06/10/10(火) 15:37 お礼

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