Excel/VBA Webabfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub webabfrage() Dim i As Long, Zeile As Long Dim Itext As String Dim MyUrl As String Dim MyISBN As String Dim IEApp As Object Dim IEDocument As Object Dim strTitel As String, strAutor As String, varDatum On Error GoTo Fehler For Zeile = 3 To Cells(Rows.Count, 1).End(xlUp).Row MyISBN = Cells(Zeile, 1).Text MyUrl = "http://www.amazon.de/s/ref=nb_sb_noss?__mk_de_DE=" _ & "%C3%85M%C3%85%C5%BD%C3%95%C3%91&url" _ & "=search-alias%3Daps&field-keywords=" & MyISBN Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Visible = True IEApp.Navigate MyUrl Do DoEvents Loop Until IEApp.readyState = 4 Set IEDocument = IEApp.Document Itext = IEDocument.body.innertext 'Debug.Print Itext IEApp.Quit Set IEApp = Nothing Set IEDocument = Nothing 'Text vor Keyword (ISBN in Anführungszeichen) abschneiden Itext = Mid(Itext, InStr(1, Itext, """" & MyISBN & """")) 'Text nach der ")" abschneiden Itext = Left(Itext, InStr(1, Itext, ")")) 'Debug.Print Itext strTitel = "" strAutor = "" varDatum = "" 'Prüfen, ob " von " im Text vorhanden - trennt Titel und Autor If InStr(1, Itext, " von ") > 0 Then strTitel = Left(Itext, InStr(1, Itext, " von ") - 1) strTitel = Mid(strTitel, Len(MyISBN) + 7) strAutor = Mid(Itext, InStr(1, Itext, " von ") + 5) strAutor = Trim(Left(strAutor, InStrRev(strAutor, "(") - 1)) Else 'Titel ohne Autor strTitel = Itext strTitel = Mid(strTitel, Len(MyISBN) + 7) End If 'Prüfen ob "(" im Text - danach beginnt meistens Erscheinungsdatum If InStrRev(Itext, "(") > 0 Then varDatum = Trim(Mid(Itext, InStrRev(Itext, "(") + 1)) varDatum = Replace(varDatum, ")", "") End If Resume01: Cells(Zeile, 4).Value = strTitel Cells(Zeile, 5).Value = strAutor Cells(Zeile, 6).Value = varDatum Next Zeile Fehler: With Err Select Case .Number Case 0 'Alles OK Case 5 'Fehler bei der Instr-Suche bzw. der Mid- oder Left-Funktion Resume Resume01 Case Else MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description End Select End With End Sub

Sub webabfrage() Dim i As Long, Zeile As Long Dim Itext As String Dim MyUrl As String Dim MyISBN As String Dim IEApp As Object Dim IEDocument As Object Dim strTitel As String, strAutor As String, varDatum, varZeile On Error GoTo Fehler varZeile = Application.InputBox("Startzeile für Einlesen der Links", _ "Amazon-Links auswerten", ActiveCell.Row, Type:=1) If varZeile 0 Then strTitel = Left(Itext, InStr(1, Itext, " von ") - 1) strTitel = Trim(Mid(strTitel, Len(MyISBN) + 3)) strAutor = Mid(Itext, InStr(1, Itext, " von ") + 5) strAutor = Trim(Left(strAutor, InStrRev(strAutor, "(") - 1)) Else 'Titel ohne Autor strTitel = Itext strTitel = Trim(Mid(strTitel, Len(MyISBN) + 3)) End If 'Prüfen ob "(" im Text - danach beginnt meistens Erscheinungsdatum If InStrRev(Itext, "(") > 0 Then varDatum = Trim(Mid(Itext, InStrRev(Itext, "(") + 1)) varDatum = Replace(varDatum, ")", "") End If Resume01: Cells(Zeile, 4).Value = strTitel Cells(Zeile, 5).Value = strAutor Cells(Zeile, 6).Value = varDatum Next Zeile Fehler: With Err Select Case .Number Case 0 'Alles OK Case 5 'Fehler bei der Instr-Suche bzw. der Mid- oder Left-Funktion Resume Resume01 Case Else MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description End Select End With End Sub

Hallo Melissa,
das Cover ist ja ein Grafikelement mit einem Link. Dies läßst so nicht in die Exceldatei übertragen.
Die Preise "neu" und "gebraucht" kann man herausfischen. Sie werden jetzt in Spalte G und H eingetragen.
Dabei hab ich auch nochmals die Suche nach Autor und Erscheinungsdatum optimiert.
Gruß
Franz

Sub webabfrage()
Dim i As Long, Zeile As Long
Dim Itext As String
Dim MyUrl As String
Dim MyISBN As String
Dim IEApp As Object
Dim IEDocument As Object
Dim strTitel As String, strAutor As String, strPreis, varDatum, varZeile
On Error GoTo Fehler
varZeile = Application.InputBox("Startzeile für Einlesen der Links", _
"Amazon-Links auswerten", ActiveCell.Row, Type:=1)
If varZeile  0 Then
Itext = Left(Itext, InStr(1, Itext, "gebraucht (") - 1)
strPreis = Trim(Mid(Itext, InStrRev(Itext, "EUR")))
Cells(Zeile, 8) = strPreis
End If
If InStr(1, Itext, "neu (") > 0 Then
Itext = Left(Itext, InStr(1, Itext, "neu (") - 1)
strPreis = Trim(Mid(Itext, InStrRev(Itext, "EUR")))
Cells(Zeile, 7) = strPreis
End If
If Cells(Zeile, 7) = "" And Cells(Zeile, 8) = "" Then
Cells(Zeile, 7) = "keine Preisinfo"
End If
'Text vor letztem "EUR " abschneiden
If InStrRev(Itext, "EUR ") > 0 Then
Itext = Left(Itext, InStrRev(Itext, "EUR ") - 1)
End If
'Text nach letzter ")" abschneiden
If InStrRev(Itext, ")") > 0 Then
Itext = Left(Itext, InStrRev(Itext, ")"))
End If
'Zeilenschaltungen durch Leerzeichen ersetzen
Itext = Trim(Replace(Itext, Chr(10), " "))
Itext = Trim(Replace(Itext, Chr(13), " "))
'doppelte Leerzeichen durch einzelnes Leerzeichen ersetzen
Itext = Trim(Replace(Itext, "  ", " "))
strTitel = ""
strAutor = ""
varDatum = ""
'Prüfen, ob " von " im Text vorhanden - trennt Titel und Autor
If InStrRev(Itext, " von ") > 0 Then
strTitel = Left(Itext, InStrRev(Itext, " von ") - 1)
strTitel = Trim(Mid(strTitel, Len(MyISBN) + 3))
strAutor = Mid(Itext, InStrRev(Itext, " von ") + 5)
strAutor = Trim(Left(strAutor, InStrRev(strAutor, "(") - 1))
Else
'Titel ohne Autor
strTitel = Itext
strTitel = Trim(Mid(strTitel, Len(MyISBN) + 3))
End If
'Prüfen ob "(" im Text - danach beginnt meistens Erscheinungsdatum
If InStrRev(Itext, "(") > 0 Then
varDatum = Trim(Mid(Itext, InStrRev(Itext, "(") + 1))
varDatum = Replace(varDatum, ")", "")
End If
Resume01:
Cells(Zeile, 4).Value = strTitel
Cells(Zeile, 5).Value = strAutor
Cells(Zeile, 6).Value = varDatum
Next Zeile
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case 5 'Fehler bei der Instr-Suche bzw. der Mid- oder Left-Funktion
Resume Resume01
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Dim i As Long, Zeile As Long Dim MyUrl As String Dim Itext Ss String Dim MyISBN As String Dim IEApp As Object Dim IEDocument As Object Dim strTitel As String, strAutor As String, strPreis, varDatum, varZeile

Hallo Melissa,
mit den Dim-Anweisungen werden Variablen deklariert.
siehe auch VBA-Hilfe unter "Deklarieren von Variablen"
Ohne As .... hat eine Variable den Type Variant und man kann ihr beliebige Werte oder Objekte zuweisen.
Mit Varaible As ... wird der Variablen ein Typ zugewiesen und man kann ihr nur noch entsprechende Daten zuweisen bzw. es findet eine Wertkonversion in den Typ statt
Einer Variablen vom Typ Long kann man keinen Text zuweisen.
Mit einer Variablen vom Typ String kann man im Allgemeinen keine Rechenoperationen durchführen.
Variablen vom Typ Object muss man in einer Set-Anweisung ein Objekt zuweisen.
Die Namen der Variablen kann man beliebig wählen, man sollte allerdings keine VBA-Schlüsselwörter als Variablennamen verwenden (z.B. Name, Value, Text oder andere). Ich versuche bei den Varaiblennamen möglichs den Verwendungszweck zu berücksichtigen oder auch durch vorangestellte Zeichen, wie var=Variant, str=String, int=Ineger etc., den Variablentyp im Namen zu berücksichtigen. Das Klappt nicht immer und in deinem Code gibt es ja auch noch die Festlegungen des ursprünglichen Verfassers.
In Verbindung mit der Zeile
Option Explicit
als 1. Zeile in einem Code-Modul ist die Variablendeklaration hilfreich bei der Fehlersuche. Schreibfehler werden leichter Erkannt.
Bei Ojektvariablen, die man ja auch als As Worksheet oder As Range deklarieren kann, hat man den Vorteil, dass im VBA-Editor bei Eingabe des Punktes nach der Variablen die möglichen Methoden und Eigenschaften zur Auswahl angezeigt werden.
IeApp bedeutet, dass der Internet Explorer geöffnet wird um dort die Daten rauszuholen
IeApp ist eine Variable, der in der Set-Anweisunge der nackte Internetexplorer durch die CreateObject(...)-Anweisung zugewiesen wird.
In den nachfolgenden Zeilen wird der IE dann mit Leben gefüllt (sichtbar machen, Seite ansteuern)
IeDocument weiß ich leider nicht.
mit
Set IEDocument = IEApp.Document
wird der Variablen das zur Zeit im IE angezeigte Dokument zugewiesen.
In den nachfolgenden Zeilen wird dann eine bestimmte Eigenschaft (body.innertext) des Dokuments ausgelesen.
Und das was ich garnicht verstehe ist: Zeile as Long und varZeile. Was genau bedeutet das?
Zeile as Long ist eine explizite Variablendeklaration
varZeile ist eine Varaiablendeklarion ohne Typzuweisung
Warum ich das so gemacht hab weiss ich nicht genau. Wahrscheinlich wusste ich noch nicht genau, wie ich die StartZeile der Schleife vorgeben wollte (InputBox oder Application.Inputbox). Da hab ich den Typ erst einmal offen gelassen.
Ich hofe, das hilft weiter.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel/VBA Webabfrage

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread