webabfrage
12.08.2020 09:18:02
Markus
ich habe mir eine webabfrage gebastelt, die beim Abruf jedoch sehr lange dauert. Das kann zum einen am abzufragenden server liegen oder auch an der Datenmenge.
Vielleicht auch meinem code.
Könntet Ihr mal d'rüber schauen, ob ich etwas verbessern/ beschleunigen kann.
Danke
Private Sub CommandButton1_Click()
For i = 63 To 112
On Error Resume Next
strTicker = Worksheets("Tabelle1").Cells(i, 1).Value & ".TG"
Application.Calculation = xlManual
Application.ScreenUpdating = False
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://abfrageserversym=" & strTicker & "", Destination:=Sheets("Tabelle1").Cells(i, 4))
.Name = strTicker
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next i
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub