Excel VBA質問箱 IV

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

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


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

7265 / 76735

←次へ　｜　前へ→


	【75059】Re:WebQuery自動再計算手動の設定

Excel2002愛好家 - 13/12/1(日) 8:52 -


	引用なし

	パスワード

　kanabunさんおはようございます。投稿ありがとうございます。

　　　　.Delete　　 'クエリを切断●

を試してみましたが、処理時間は改善されませんでした。

これは(3)と同じ内容かな？と思うのですが

　　Sheets("作業").Cells.QueryTable.Delete　　　　'(3)

色々試しているなかで、下記のことが分かっています。
'ESCでプログラムを止めて、(1)(2)のコメントアウトを入れ替えるとプロジェクトがリセットされ、速くなった

劇的に速くなります。

ただ、残念なことに、この修正をしても、ファイルを保存して、再度開いて使うと、元の木阿弥で
処理時間が数十分かかってしまいます。
毎回プログラムをESCで中断し、1.2.のコメントアウトを入れ替えるのは絶対にしたくないです。

マクロでできる良い解決策があれば助かります。よろしくお願いします。

　 'Sheets("作業").Select
　 '　　　　　　　　　　　　　'ESCで止めて、(1)(2)のコメントアウトを入れ替えるとプロジェクトがリセットされ、速くなった
　　With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))　　　　　　　　　 '(1) ●書き換えで 1分28秒
　 'With Sheets("作業").QueryTables.Add(Connection:=webURL, Destination:=Sheets("作業").Range("A1"))　　　'(2) ●書き換えで 1分30秒
　　　　.WebSelectionType = xlEntirePage　　　　
　　　　.WebFormatting = xlWebFormattingNone
　　　　.WebPreFormattedTextToColumns = True
　　　　.WebConsecutiveDelimitersAsOne = True
　　　　.Refresh BackgroundQuery:=False
　　　　.Delete　　 'クエリを切断●
　　End With
　　'

　　Sheets("作業").Cells.Clear
　 'Sheets("作業").Cells.QueryTable.Delete　　　　'(3)
　　Set r = Nothing
End Function

0 hits

▼

【75057】WebQuery自動再計算手動の設定 Excel2002愛好家 13/11/30(土) 15:14