ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Schritt möchte ich dann die im Impressum auf den Seiten gespeicherte Mailadresse auslesen und im Excelsheet abspeichern. Das ist noch Zukunftsmusik...)
Wenn die URL erreichbar ist, soll in meinem Excelsheet ein entsprechender Eintrag in einer Spalte gemacht werden, wenn die Adresse nicht mehr erreichbar oder vorhanden ist, soll in der Spalte ein "f" eingetragen werden.
Der Teil in meinem Prog schaut im Moment so aus
Sub IntKontrolle()
do while (Schleife über alle i Zeilen)....
strInternetAdr = oEx1.Cells(i, 7).Value ' mein Excelsheet
bInternetAdr = InternetSeiteAuf()
wend
End Sub
Function InternetSeiteAuf() as Boolean
Dim Web As Object
Set Web = CreateObject("InternetExplorer.Application")
' Wenn Internetseite nicht existiert/erreichbar muss Fehlerroutine aufgerufen werden
' dann muss InternetSeiteAuf false zurückgeben
Web.Navigate (strInternetAdr)
Web.Left = 10
Web.Top = 10
Web.Height = 500
Web.Width = 750
Web.Visible = True
Do while Web.ReadState 4
loop
'wie stelle ich fest, dass URL falsch oder nicht erreichbar?
'dann weiter nach IntAdrFalsch:
InternetSeiteAuf = True
GoTo IntAdrOk:
IntAdrFalsch:
InternetSeiteAuf = False
IntAdrOk:
Web.Quit
End Function
Allerdings hat mir
Do while Web.ReadState 4
immer nur ein leeres Explorer-Fenster geöffnet, hat wohl nie
ReadyState 4
gefunden.Abhilfe war dann:
Do: Loop Until Web.Busy = False
(wenn Seite erscheint, kommt MsgBox Frage ob weitere Seite dann schließen Seite über Web.Quit)
1. Frage:
Beim ersten Mal kommt Seite hoch
https://www.herber.de/bbs/user/65189.doc
Bei allen anderen Seiten geht's
Wenn ich die erste URL normal eingebe, wird sie einwandfrei geöffnet...
2. Frage:
Wie aber kann ich verfahren, wenn ich vom IE (auf einer Seite) die Nachricht bekomme, dass es die Seite nicht gibt? Getestet, passiert.
Dann müsste ich ja den Inhalt der Seite abfragen, oder kann ich eine Systemvar abfragen?
Oder kann es sein, dass immer weiter versucht wird die Seite zu finden und sich der IE aufhängt?!
Würde mich freuen, wenn mir einer von euch weiterhelfen könnte.
Vielen Dank und Grüße
Rüdiger