Microsoft Excel 2010-Programmierung - Das Handbuch

Dateien verwalten

Wir kehren nun den Verzeichnissen den Rücken zu. Auf den folgenden Buchseiten erfahren Sie alles rund um die Arbeit mit Dateien.

Ermitteln, ob eine Datei existiert

Wenn Sie eine Datei ansprechen wollen, sollten Sie in jedem Fall immer prüfen, ob diese tatsächlich im angegebenen Pfad existiert. Verwenden Sie dazu die Methode Dir.

Sub CheckIfFileExists()
   Const strPath As String = "C:\test\temp.xlsx"

   If Dir(strPath) <> "" Then
      MsgBox "Datei """ & strPath & """ vorhanden."
   Else
      MsgBox "Datei """ & strPath & """ nicht vorhanden."
   End If
End Sub

Listing 28.27 Prüfen, ob eine Datei existiert

Beispiel

Das obige Beispiel befindet sich innerhalb der Beispieldateien zum Buch im Ordner \Buch\Kap28. Die Mappe nennt sich Bsp28_13.xlsm. Die Prozedur ...