Webabfrage
Uppe
ich habe über Makroaufzeichnung folgende Webabfrage erstellt:
With Worksheets(1).QueryTables.Add(Connection:= "URL;http://Intranetadresse/" ,Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "Tabellenname"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Diese gibt mir aber nur die ersten 100 Werte aus. Wie kann ich die 20 Werte mitausgeben, die auf der 2. Seite des Views stehen?
Wenn ich aufzeichnen möchte wie ich die Werte von der 2.Seite importiere, kommt die Fehlermeldung : "Aufzeichnung nicht möglich"
Danke und Gruß
Uppe