ich benötige Hilfe bei der Erstellung eines Makros für Webabfragen.
Bisher habe ich mein Makro mit dem Makrorecorder für eine Webabfrage aufgezeichnet.
Die Basis dafür liefert mein erstes Tabellenblatt. Dort stehen einige hundert Hyperlinks/Internetadressen, welche per Makro ausgelesen werden sollen untereinander.
Das von mir aufgezeichnete Makro mit der Webabfrage für den obersten Hyperlink funktioniert gut. Die Daten von der Website sollen jeweils auf ein neues Tabellenblatt produziert werden.
Meine Frage ist nun: Wie kann ich eine Schleife in das Makro einbauen, damit nach dem Auslesen eines Hyperlinks die nächste Zeile angesteuert wird somit die nächste Website ausgelesen wird. Dies soll automatisch mit Start des Makros bis zum Ende der ca. 300 Hyperlinks geschehen. Als Ergebnis sollen dann ca. 300 neue Tabellenblätter mit den jeweiligen Inhalten der ca. 300 Hyperlinks erzeugt worden sein.
Hier ist mein bisheriges Makro:
(Die Websites sind nun Beispielnamen, hier website1, website2, website3 etc.)
Sub Makro1()
' Makro1 Makro
Range("A1").Select
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.website1.de", _
Destination:=Range("A1"))
.Name = "www.website1.de"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Vielen Dank für Eure Unterstützung.