Ich habe jetzt noch ein Problem mit der Gesamtsumme: Wenn die Buchauswahl auf "leer" steht, erscheint beim Mahngeld "#NV" und eine Summe kann nicht berechnet werden. Wie kriege ich hin, dass hier dann statt "'NV" eine "0" erscheint?
Und noch was zweites: Ich habe ein Script gefunden, dass durch ISBN die Buchdaten automatisch ergänzt. Ich kriege es aber nicht zum Laufen. Stimmt der Code nicht oder mache ich etwas falsch?
Code: Alles auswählen
Sub webabfrage()
Dim i As Long
Dim Itext As String
Dim MyUrl As String
Dim MyISBN As String
Dim IEApp As Object
Dim IEDocument As Object
MyISBN = "978-0-393-97283-2"
MyUrl = "http://www.amazon.de/s/ref=nb_sb_noss?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps& _
field-keywords=" & MyISBN & "&x=22&y=24"
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
MsgBox Mid(Itext, InStr(1, Itext, "Treffer") - 3, 1024)
IEApp.Quit
Set IEApp = Nothing
Set IEDocument = Nothing
End Sub