Excel VBA質問箱 IV

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

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


7262 / 76732 ←次へ | 前へ→

【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

298 hits

【75057】WebQuery自動再計算手動の設定 Excel2002愛好家 13/11/30(土) 15:14 質問
【75058】Re:WebQuery自動再計算手動の設定 kanabun 13/12/1(日) 7:41 発言
【75059】Re:WebQuery自動再計算手動の設定 Excel2002愛好家 13/12/1(日) 8:52 質問
【75062】Re:WebQuery自動再計算手動の設定 Excel2002愛好家 13/12/2(月) 22:58 発言

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