Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Datei vohanden

Betrifft: Datei vohanden von: Andy81
Geschrieben am: 16.08.2004 17:48:01

Guten Abend!
wie kann man mit vba prüfen, ob irgend eine .xls datei in einem bestimmten Ordner vorhanden ist?
Wie könnte ich dann den Dateinamen auslesen?

DAnke schonmal
Andy81

  


Betrifft: AW: Datei vohanden von: Boris
Geschrieben am: 16.08.2004 18:02:09

Hi Andy,

das ist ein Widerspruch in sich.
Um zu prüfen, ob eine Datei vorhanden ist, kommst du kaum drumherum, den Dateinamen vorzugeben. Also brauchst du ihn auch nicht mehr auszulesen.

Schau mal in die Recherche - da gibt´s sicherlich genügend Beispiele.

Grüße Boris


  


Betrifft: AW: Datei vohanden von: Ulf
Geschrieben am: 16.08.2004 18:13:23

Ob irgendeine xls vorhanden ist!

Ulf


  


Betrifft: 1:1 ___ ;-) von: Boris
Geschrieben am: 16.08.2004 18:27:16

Grüße Boris


  


Betrifft: AW: Datei vohanden von: Boris
Geschrieben am: 16.08.2004 18:33:57

Hi Andy,

da ich wohl etwas flüchtig gelesen habe, hier dafür ein mögliche Lösung:

Sub Datei_vorhanden()
   If Dir("c:\eigene dateien\*.xls") = "" Then
      MsgBox "Kein xls-File vorhanden!", , "Fehlanzeige"
   Else
      MsgBox "Es existiert mindestens schonmal die Datei " & Dir("c:\eigene dateien\*.xls"), , "Treffer..."
   End If
End Sub


Grüße Boris


  


Betrifft: AW: Datei vohanden von: Andy81
Geschrieben am: 17.08.2004 09:05:17

Guten Morgen.
Danke für den Code. Es funktioniert.
Gruß Andy


  


Betrifft: AW: Datei vohanden von: Andy81
Geschrieben am: 17.08.2004 12:41:34

Danke. es funtioniert.
Gruß
Andy81