Microsoft Excel

Herbers Excel/VBA-Archiv

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

For Each Workbook In

Betrifft: For Each Workbook In von: Gregor
Geschrieben am: 08.09.2004 08:05:33

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

  


Betrifft: AW: For Each Workbook In von: andreas e
Geschrieben am: 08.09.2004 08:14:27

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


  


Betrifft: AW: For Each Workbook In von: Harald E
Geschrieben am: 08.09.2004 08:16:31

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


  


Betrifft: AW: For Each Workbook In von: Gregor
Geschrieben am: 08.09.2004 08:57:15

Hoi ihr beiden

Herzlichen Dank für die Infos, damit komme ich zurecht.

Gruss aus Luzern
Gregor


 

Beiträge aus den Excel-Beispielen zum Thema "For Each Workbook In"