Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige