Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12617 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9595】一定時間待たせる方法 こまりんこ 03/12/9(火) 22:57 質問
【9596】Re:一定時間待たせる方法 しのしの 03/12/10(水) 0:54 回答
【9595】一定時間待たせる方法
質問  こまりんこ  - 03/12/9(火) 22:57 -
引用なし
パスワード
   どなたか教えてください。お〜神よ。

エクセルにＭＳクエリーで出たを読み込んできています。
ActiveWorkbook.RefreshAllで更新して、その値を他のセルに
コピー貼り付けしたいです。

ところが、マクロの進む時間が早すぎ？て、
値を更新する前に貼り付けてしまいます。
途中で３秒待たせたりできませんか？

Sub 更新()

("Sheet1").select
ActiveWorkbook.RefreshAll
ここで３秒まって、次の行動をしたいです。
Range("A1").copy
Range("C1").paste

End Sub

使い方が下手なのか、
Apllication.wait (now +timevalue("00:00:03")
を入れたりすると、マクロごととまるので何の
意味もなく、更新されないデータが貼り付けられます。

どなたか教えてください。良い方法ないですか？

以上
【9596】Re:一定時間待たせる方法
回答  しのしの  - 03/12/10(水) 0:54 -
引用なし
パスワード
   >途中で３秒待たせたりできませんか？
application.ontimeメソッドを利用されてはいかがですか？
詳しくは、ヘルプをご覧ください。

ただ、
>ActiveWorkbook.RefreshAllで更新して
ブック全体を更新する必要があるか？とも思います。
まぁ、あまり深く考えなくても、いいっか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12617 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free