|
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
|
|