4
VBA Schleife richtig einsetzen
Hallo,
über den gestrigen Tag habe ich mir einen Code zusammengewürfelt, der derzeit eine Website ausliest.
Nun scheitre ich dabei eine Schleife in das Makro einzufügen, sodass diese die Anweisungen für mehrere Seiten einzeln wiederholt und hoffe Ihr wisst weiter.
Das Makro sieht derzeit so aus:
Wenn Ihr eine kurze Erklärung zur Lösung habt, freue mich sehr.
P.S. über die Suchfunktion habe ich bisher nicht das richtige gefunden bzw. konnte es nicht anwenden.
Vielen Dank und einen schönen Sonntag.
VG
Robin
über den gestrigen Tag habe ich mir einen Code zusammengewürfelt, der derzeit eine Website ausliest.
Nun scheitre ich dabei eine Schleife in das Makro einzufügen, sodass diese die Anweisungen für mehrere Seiten einzeln wiederholt und hoffe Ihr wisst weiter.
Das Makro sieht derzeit so aus:
Sub XX()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim Website As String
Dim Price As Variant
Website(0) = "https://Seite.html"
Website(1) = "https://Seite1.html"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "Get", Website, False
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT)"
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
Price = html.getElementsByClassName("now")(0).innerText
Sheets("Tabelle1").Range("A1").Value = Price
End SubWenn Ihr eine kurze Erklärung zur Lösung habt, freue mich sehr.
P.S. über die Suchfunktion habe ich bisher nicht das richtige gefunden bzw. konnte es nicht anwenden.
Vielen Dank und einen schönen Sonntag.
VG
Robin
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 521107
Url: https://administrator.de/contentid/521107
Printed on: April 29, 2024 at 16:04 o'clock
4 Comments
Latest comment
Es dürfte einfacher sein die URL's in Zellen, z.B. Spalte A ab Zeile 2 zu schreiben.
Eine Schleife geht dann
Die Abfrage des Preises ist im Prinzip richtig, aber ohne Kenntnis des html-Codes kann man das nicht beurteilen.
Die ETag auf das Jahr 2000 zu prüfen, hat etwas.
Eine Schleife geht dann
for i = 2 to cells(rows.count, 1).end(xlup).row
'hier dein Code
next iDie Abfrage des Preises ist im Prinzip richtig, aber ohne Kenntnis des html-Codes kann man das nicht beurteilen.
Die ETag auf das Jahr 2000 zu prüfen, hat etwas.
1
Vielen Dank für deine schnell Antwort.
Ich hab dein Vorschlag versucht, leider gibt er mit bei der Zeile response = StrConv(request.responseBody, vbUnicode) einen Laufzeitfehler "-2147483638 | Die für diesen Vorgang erforderlichen Daten sind noch nicht verfügbar" aus. Der Code muss dann wahrscheinlich angepasst werden, da die Seite direkt geöffnet wird oder?
Das Auslesen des HTML-Codes sollte passen.
VG
Robin
Ich hab dein Vorschlag versucht, leider gibt er mit bei der Zeile response = StrConv(request.responseBody, vbUnicode) einen Laufzeitfehler "-2147483638 | Die für diesen Vorgang erforderlichen Daten sind noch nicht verfügbar" aus. Der Code muss dann wahrscheinlich angepasst werden, da die Seite direkt geöffnet wird oder?
Sub XX2()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim Website As String
Dim Price As Variant
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.FollowHyperlink Address:=Range("a1").Text, NewWindow:=True
Set request = CreateObject("MSXML2.XMLHTTP")
'request.Open "Get", Website, False
'request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
Price = html.getElementsByClassName("now")(0).innerText
Sheets("Tabelle1").Range("A1").Value = Price
Next i
End SubDas Auslesen des HTML-Codes sollte passen.
VG
Robin
eine letzte Bemerkung:
Sowohl 'request.Open als auch 'request.send sind auskommentiert.
Sowohl 'request.Open als auch 'request.send sind auskommentiert.
1
Vielen Dank, hab es nun durch dich hinbekommen.
Hier nochmal der derzeitige Code:
Schönen Sonntag noch.
VG
Robin
Hier nochmal der derzeitige Code:
Sub XXX()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim Website As String
Dim Price As Variant
For i = 0 To Cells(Rows.Count, 1).End(xlUp).Row
Website = Sheets("Tabelle1").Range("A1").Offset(1 * i, 0)
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "Get", Website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
Price = html.getElementsByClassName("now")(0).innerText
Sheets("Tabelle2").Range("A1").Offset(1 * i, 0).Value = Price
Next i
End SubSchönen Sonntag noch.
VG
Robin
