existenz einer datei im internet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Helmut,
Excel kann den InternetExplorer sehr gut ansteuern und Ergebnisse/Fehlermeldungen abfragen. Voraussetzung wäre dann aber, dass der IE auf den jeweiligen Computern installiert ist (...ohne dabei unbedingt Standardbrowser sein zu müssen). Aber da ja auch Excel bereits Voraussetzung ist...
Falls das für dich interessant ist, suche mal im Archiv nach. Am Anfang muss der Code etwa so aussehen:
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.deine-adresse.de"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
Viele Grüße
Martin

in deinem code wird ja durch Navigate in jedem fall versucht, die datei zu öffnen und dam ist ist das keine alternative, ob sie existiert oder nicht.
ich hab jetzt - wahrscheinlich auf primitivste weise - folgendes geschrieben:
[code]
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www2.uni-jena.de/erzwiss/maerchen.txt"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Text = IEDocument.Body.InnerText
Set IEDocument = Nothing
Set IEApp = Nothing
If Text Like "*Die Webseite wurde nicht gefunden*" Then MsgBox "Datei nicht vorhanden" Else MsgBox "Datei vorhanden"
End Sub
[/code]
(die messagebox ist jetzt nur zum testen, im programm ist die entscheidung dann anders.)
damit tut sich aber ein weiteres problem auf:
wenn ich mit F8 die einzelschritte durchlaufe, funktioniert in jedem falle alles bestens. bei F5 oder nach dem ausführen des commandbuttons erscheint an der debug-stelle "Text = IEDocument.Body.InnerText" die fehlermeldung: "Objektvariable oder With-Blockvariable nicht festgelegt", wenn die datei nicht existiert. wenn sie existiert, dann ist alles ok. wie ist das möglich?
bitte nochmals um hilfe und bedanke mich im voraus.
helmut

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

existenz einer datei im internet

5 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)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread