VBA-Web-Abfrage
27.01.2019 12:47:36
Hirtenanna
nach langer Suche möchte ich mich heute an Euch wenden, da mir leider die erforderliche Kenntnis im VBA-Bereich fehlt, ich allerdings erheblich an die Arbeitserleichterung des VBA-Makros gebunden bin. Ich hoffe das Ihr mir mit Eurem Fachwissen weiterhelfen könnt.
Zunächst hier das Makro, welches ich mir mit Hilfe von Videos zusammengestellt habe. Bitte nicht lachen, der ein oder andere wird hier vielleicht schon Handlungsbedarf beim optimieren finden:
Sub ebay()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = False
.navigate Range("Tabelle2!D2").Value
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = ie.document
While ie.readyState 4
Wend
On Error Resume Next
Dim i As Integer
For i = 0 To 500
Range("B11").Offset(i).Value = doc.getElementById("ResultSetItems").getElementsByTagName("h3")( _
i).innerText
Range("C11").Offset(i).Value = doc.getElementById("ResultSetItems").getElementsByClassName(" _
selrat")(i).innerText
Range("D11").Offset(i).Value = doc.getElementById("ResultSetItems").getElementsByClassName(" _
lvsubtitle")(i).innerText
Range("E11").Offset(i).Value = doc.getElementById("ResultSetItems").getElementsByClassName(" _
lvshipping")(i).innerText
Range("F11").Offset(i).Value = doc.getElementById("ResultSetItems").getElementsByClassName(" _
lvprice prc")(i).innerText
Next i
Application.EnableEvents = True
End With
End Sub
Das Makro funktioniert so erstmal einwandfrei und alles steht da, wo es stehen soll. Ich habe allerdings mehrere kleinere "Problemchen" bei denen ich Eure Hilfe aufgrund fehlender Sachkenntnis benötige.
1. Die Daten werden nicht aktualisiert. Führe ich das Makro aus, werden alte Daten eingefügt. Klicke ich allerdings auf den entsprechenden Link in Tabelle2 Zelle D2, öffnet sich die aktuellste Version der Seite.
2. In C11 habe ich versucht, den angezeigten Anbieter einfügen zu lassen. Diese Einstellung kann man im Browser vornehmen, so das dieser auch in der Listenansicht angezeigt wird. Die Bezeichnung "selrat" ist dabei aber offensichtlich falsch, weshalb auch nichts ausgegeben wird. Im HTML Text ist der Verkäufer allerdings eindeutig als "Verkäufer: ..." definiert. Hier bräuchte ich also den entsprechenden Befehl, den entsprechenden Namen auch exportieren zu können.
3. Zu viel Text: In F11 wird automatisch "EUR" übernommen, als auch Text wie "Preistendenz", welchen ich nicht brauche. Ist es hier möglich nur die reine Zahl ausgeben zu lassen?