Excel VBA質問箱 IV

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

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


7259 / 76732 ←次へ | 前へ→

【75062】Re:WebQuery自動再計算手動の設定
発言  Excel2002愛好家  - 13/12/2(月) 22:58 -

引用なし
パスワード
   皆さん 今晩は。自己解決しました。
投稿すると、刺激になって解決できるものですね。投稿して良かったです。

kanabunさんの Delete がヒントになって、いろいろ試していると、
クエリの切断が、下記の(1)でできました。

Sheets("作業").Cells.Delete
でシートが完全にリセットされ、クエリの切断ができたのかな。

  'Sheets("作業").Cells.Clear       'カット
  'Sheets("作業").Cells.QueryTable.Delete 'カット
では、クエリの残骸が残っていて処理に時間がかかっていたのだと思います。


Sub set終値() 
  
   省略
   Application.ScreenUpdating = False
  'Application.Calculation = xlManual   'カット

  省略

  'Application.Calculation = xlAutomatic  'カット
   Application.ScreenUpdating = True

   省略

End Sub

Function Get終値(code As Variant)

  省略
  
  With ActiveSheet.QueryTables.Add(Connection:=webURL, Destination:=Range("A1"))
    .WebSelectionType = xlEntirePage    '全て取り込み  '削除 表のみ取り込み 2.
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .Refresh BackgroundQuery:=False
  End With

  省略

  'Sheets("作業").Cells.Clear       'カット
  'Sheets("作業").Cells.QueryTable.Delete 'カット

   Sheets("作業").Cells.Delete  '(1)これでクエリを切断できました

End Function

307 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 発言

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