|
皆さん 今晩は。自己解決しました。
投稿すると、刺激になって解決できるものですね。投稿して良かったです。
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
|
|