Excel/VBA Webabfrage

Melissa · 2014-08-25T08:44:44+00:00

Hallo zusammen, folgendes Szenario: Ich möchte ISBN Nummern in eine Excel Tabelle speichern und dann Informationen dazu abrufen lassen aus dem Internet (Buchtitel, Autor, Erscheinungsdatum). Bisher habe ich folgendes: Exceltabelle, wenn in den Feldern A1, B1, C1 etc. die ISBN Nummern eingetragen werden, dann generiert sich in A2, B2, C2 etc. ein Link der zu Amazon führt und das entsprechende Buch anzeigt. Jetzt hätte ich gerne, dass in den Feldern A3, A4, A5 die Infos von oben importiert werden, also das dort Buchtitel, Autor und Erscheinungsdatum in den Feldern erscheinen. Bedeutet: In A1 wird die ISBN eingegeben per Handscanner, daraufhin generiert sich der Link in A2 der zu Amazon führt, in A3 soll der Titel erscheinen, in A4 der Autor und in A5 das Erscheinungsdatum. Dasselbe soll dann für B1, C1 etc. passieren. Ich weiß, dass sowas mit VBA möglich ist, allerdings habe ich so gut wie keine Kenntnisse in VBA. :-( Ich habe hier im Forum schon ein Skript gefunden, welches, wenn man eine ISBN Nummer eingibt die entsprechende Webseite aufruft. Allerdings ist dort eine feste ISBN hinterlegt. Es wäre super, wenn mir jemand vielleicht ein Skript schreiben könnte, welches die oben genannten Anforderungen erfüllt oder ob jemand das Skript welches bereits hier im Forum vorhanden ist ein wenig umschreibt. Ich würde mir im nachhinein das Skript anschauen und versuchen zu verstehen, damit ich auch weiß, was genau dort passiert. Es wäre wirklich super, wenn mir jemand helfen könnte... Liebe Grüße Melissa

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

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

Forumthread: Excel/VBA Webabfrage

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Excel und VBA: Webabfragen für die Amazon ISBN-Suche

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)