Re: Anschreiben mit Mahngebühren
Verfasst: Di, 18.10.2016 16:58
Jetzt habe ich hier mal einiges eingearbeitet. Zur Erklärung: Die Berechnung findet man im "Mahnrechner". Hier wählt man ein Buch aus und bestimmt die Zahl der Entleiher, dann wird der Preis ermittelt.
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?
Quelle des Codes: http://www.herber.de/forum/archiv/1232t ... ernet.html
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