Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48763 / 76807

←次へ　｜　前へ→


	【32978】Re:WEBクエリ取得中のまま固まってしまう

Kein - 05/12/28(水) 13:29 -


	引用なし

	パスワード

だいたいのコードは把握してます。まずマクロの冒頭に

With Application
　 .ScreenUpdating = False
　 .DisplayAlerts = False
End With

と追加して下さい。そして

With ActiveSheet.QueryTables.Add(～)

の下に、色々なプロパティの設定が記述してあると思いますが、もし
RefreshPeriod プロパティへ、数値を渡しているコードがあったら削除します。
そして新たに

.EnableRefresh = False

を追加します。そしてその With 構文の最後に

　 With .ResultRange
　　　.Copy
　　　.PasteSpecial xlPasteValues
　 End With
End With

と追加し、続けてループ構文の Next の直前に

Application.CutCopyMode = False

さらにマクロの最後に

With Application
　 .ScreenUpdating = True
　 .DisplayAlerts = True
End With
　
を入れて下さい。
要するに、クエリーの更新を止めることで負荷を減らし、取得したデータは即座に
値のみに変えてしまえば良いのではないか ? という発想なのです。
テストしてみて下さい。

1 hits

▼

【32967】WEBクエリ取得中のまま固まってしまう おさる 05/12/28(水) 12:03