Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

String zersetzen / file_exists

Forumthread: String zersetzen / file_exists

String zersetzen / file_exists
31.01.2005 09:11:25
Dennis
Hallo,
Ich schreibe gerade ein "Programm" in Excel und in einem Abschnitt des Ablaufs benötige ich eine funktion die prüft ob eine datei existiert. der datei pfad und name steht in einer variable der zuvor in eine zelle geschrieben wird.
Ich hatte die idee über eine andere zelle die datei einfach aufzurufen mit
"='H:\excel\chk\[test.xls]Tabelle1'!$A$1" - falls nicht existiert folgt ein fenster... usw....
Problem bei diesem Lösungsansatz: der Dateipfad und Name kann nicht einfach "so" dahin geschrieben werden excel braucht für diese funktion eckige klammern vor und hinter dem datei namen - also wie mache ich aus
"H:\excel\chk\test.xls" = "H:\excel\chk\[test.xls]" oder aus
"H:\shdkfjhsdfk\asdfasdftest.xls" = "H:\shdkfjhsdfk\[asdfasdftest.xls]"
so das Excel versteht welche datei gesucht wird.
ich hoffe ihr versteht mich!
Danke!
Dennis
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String zersetzen / file_exists
31.01.2005 09:16:19
Josef
Hallo Dennis!
Probier mal diese Funktion.

Public Function FileExist(ByVal Dateiname As String) As Boolean
On Error GoTo errorhandler
If Dateiname = "" Then GoTo errorhandler
FileExist = Dir$(Dateiname) <> ""
Exit Function
errorhandler:
FileExist = False
Resume Next
End Function

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: String zersetzen / file_exists
31.01.2005 09:30:11
Dennis
Unglaublich! - Danke für diese Schnelle Lösung!
Recht Herzlichen Dank!
Dennis
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige