Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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
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

152 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige