Während Sie Ihre Makros programmieren, müssen Sie möglicherweise feststellen, ob eine bestimmte Datei auf der Festplatte vorhanden ist. Der Zweck Ihres Makros kann beispielsweise darin bestehen, eine Textdatei zu öffnen und daraus zu lesen. Bevor Sie dies tun, sollten Sie überprüfen, ob die Datei vorhanden ist, um einen Fehler zu vermeiden.

Die folgende VBA-Funktion kann verwendet werden, um das Vorhandensein einer Datei zu überprüfen. Sie müssen lediglich den vollständigen Dateinamen als Zeichenfolge übergeben, und das Makro gibt entweder True (falls die Datei vorhanden ist) oder False (falls nicht vorhanden) zurück.

Function FileThere(FileName As String) As Boolean      FileThere = (Dir(FileName) > "")

End Function

Diese Funktion arbeitet mit der Dir-Funktion, die nach einer Datei in einem Verzeichnis sucht. Wenn die Datei vorhanden ist, gibt Dir den vollständigen Pfad der Datei zurück. Die True / False-Bedingung der Funktion wird abgeleitet, indem verglichen wird, was Dir mit einer leeren Zeichenfolge zurückgibt. Wenn etwas zurückgegeben wird, ist die Datei vorhanden, da Dir keine leere Zeichenfolge zurückgibt.

Sie können die folgende Funktion verwenden:

If FileThere("c:\myfile.txt") Then      '      ' Do stuff here      ' Else      MsgBox "File Not There!"

End If

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2516) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Feststellen, ob eine Datei vorhanden ist.