Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Abfrage ob URL existiert

Forumthread: VBA Abfrage ob URL existiert

VBA Abfrage ob URL existiert
05.05.2005 15:35:22
Sebastian
Hallo zusammen!
ich habe 2 Fragen und hoffe das Ihr mir weiterhelfen koennt.
1.
wie kann man in VBA pruefen ob eine bestimmte URL existiert und eine boolsche varible mit true oder false belegen je nach dem ob die URL existiert?
z.B
'URL: http://www.fda.gov/ora/oasis/3/ora_oasis_c_ar.html
'urltest = ture
'URL: http://www.fda.gov/ora/oasis/0/ora_oasis_c_ar.html
'urltest = false
es haldelt sich um eine page auf den oben genannten domain. es wird ein 404 error gesendet.
2.
wie kann ich den inhalt eines excel sheets so loeschen, dass wirklich nichts mehr vorhanden ist. ich moechte die letzte row eines sheets suchen die daten beinhaltet (wie mit ctrl+end) der curser springt zur letzten zelle, die einmal daten enthalten hat, obwohl ich diese schon geloescht habe und meiner meinung nach diese zelle leer sein sollte. auch wenn ich clear all benutzte bekomme ich das gleiche ergebnis
danke fuer eure hilfe
sebastian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Abfrage ob URL existiert
05.05.2005 18:56:54
Rudi
Hi,
das kannst damit abfragen:
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
mfg Rudi
AW: VBA Abfrage ob URL existiert
05.05.2005 21:15:01
Ramses
Hallo
Um Rudi's Vorschlag etwas zu präzisieren
Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function CheckURL Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Function URLExist(chkUrl As String) As Boolean
If CheckURL(chkUrl, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
URLExist = False
Else
URLExist = True
End If
End Function
Sub Demo()
MsgBox URLExist("http://www.fda.gov/ora/oasis/3/ora_oasis_c_ar.html")
End Sub
Gruss Rainer
Anzeige
AW: VBA Abfrage ob URL existiert
05.05.2005 21:28:37
Rudi
Hi,
wenn man die richtige API weiß, sollte das Googeln danch kein Problem sein.
mfg Rudi
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige