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

Forumthread: For Each Workbook In

For Each Workbook In
08.09.2004 08:05:33
Gregor
Hoi zusammen
Mit folgendem Befehl öffne ich eine Datei aus einem Verzeichnis.
'--- öffnet Datei
PilotPath = ActiveWorkbook.Path
SourceFile = Cells(intCounter, 6)
Workbooks.Open Filename:=PilotPath & "\" & SourceFile
Zuvor möchte ich mit einer Anfrage prüfen, ob die entsprechende Datei im Verzeichnis vorhanden ist. Ansonsten ist der Benutzer mit einer MsgBox zu verständigen.
Wie lautet der Befehl?
Danke und Gruss
Gregor
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For Each Workbook In
andreas
Hallo gregor,
wiewäre es damit:
Public

Sub CheckFileExists1()
If Dir("C:\Daten\MeineMappe.xls") <> "" Then
MsgBox "Die Datei existiert."
Else
MsgBox "Die Datei existiert nicht."
End If
End Sub

gruß
andreas e
http://www.skripteundaufgaben.de
Anzeige
AW: For Each Workbook In
08.09.2004 08:16:31
Harald
Moin Gregor,
diese Abfrage geschieht bei mir folgendermaßen:
Filename = "C:\Eigene Dateien\FS" & Format(ActiveCell, "yyyymmdd") & ".xls"
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Bisschen basteln, dann sollte es passen ;-)
Gruß
Harald
Anzeige
AW: For Each Workbook In
08.09.2004 08:57:15
Gregor
Hoi ihr beiden
Herzlichen Dank für die Infos, damit komme ich zurecht.
Gruss aus Luzern
Gregor
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige