Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
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
Inhaltsverzeichnis

Wenn die Datei nicht existiert, dann Exit Sub

Wenn die Datei nicht existiert, dann Exit Sub
27.01.2018 11:42:48
Sergej
Hallo Leute,
wie kann ich mit nur einer VBA Zeile überprüfen, ob das Verzeichnis CSVPath incl. Datei "Bericht.csv" existiert. Wenn es nicht existiert dann Exit Sub
CSVPath = "P:\Daten\2018\LTB\Label\"
If Dir(CSVPath & "Bericht.csv", vbNormal) = "" Then Exit Sub
Beste Grüße,
Sergej

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn die Datei nicht existiert, dann Exit Sub
27.01.2018 12:05:07
Herbert
Hallo Sergej,
probiers mal damit:
Sub IstDateiVorhanden()
Dim s As String
Const CSVPath = "P:\Daten\2018\LTB\Label\"
If Dir(CSVPath & "Bericht.csv", vbDirectory) = "" Then Exit Sub
s = Dir(CSVPath)
If s  "" Then
MsgBox "Datei vorhanden!", vbExclamation
Else
MsgBox "Datei " & CSVPath & " nicht da!", vbCritical
End If
End Sub
Servus
AW: Wenn die Datei nicht existiert, dann Exit Sub
27.01.2018 12:54:29
Sergej
Danke Herbert!
AW: Wenn die Datei nicht existiert, dann Exit Sub
27.01.2018 12:55:49
Herbert
Danke ist ja schön, aber hat es denn geklappt?
AW: Wenn die Datei nicht existiert, dann Exit Sub
27.01.2018 13:10:07
Sergej
Es hat funktioniert :-)
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige