Range(
"A1"
).
Select
With
ActiveSheet.QueryTables.Add(Connection:= _
, Destination:=Range(
"$A$1"
))
.Name = _
"xxx.php?Jahr="
& xJahr &
"&AUFTRAGNR=&X1="
& P &
"&pincounter=1&Start=Ausf%C3%BChren_1"
.FieldNames =
True
.RowNumbers =
False
.FillAdjacentFormulas =
False
.PreserveFormatting =
True
.RefreshOnFileOpen =
False
.BackgroundQuery =
True
.RefreshStyle = xlInsertDeleteCells
.SavePassword =
False
.SaveData =
True
.AdjustColumnWidth =
True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns =
True
.WebConsecutiveDelimitersAsOne =
True
.WebSingleBlockTextImport =
False
.WebDisableDateRecognition =
False
.WebDisableRedirections =
False
.Refresh BackgroundQuery:=
False