Microsoft Excel

Herbers Excel/VBA-Archiv

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

Ueberprüfung, ob Datei vorhanden ist | Herbers Excel-Forum


Betrifft: Ueberprüfung, ob Datei vorhanden ist von: Peter
Geschrieben am: 20.08.2012 17:32:01

Guten Abend
In der Variable strFullNamePEBS steht der Fullname einer Datei. Nun will ich prüfen, ob diese exisitert (nicht, ob sie geöffnet ist). Das geschieht mit der Funktion psFileExists. Auch wenn der Name nicht existiert, erhalte ich keine MsgBox und das Programm wird nicht abgebrochen. Bei der Funktion sehe ich, dass die Zeile
psFileExists = "Nein"
durchlaufen wird.
Weshalb, ist mir nicht klar. Wo ist mein Überlegungsfehler?

Gruss, Peter

If psFileExists(strFullNamePEBS) = "NEIN" Then
MsgBox "Datei " & strFullNamePEBS & " fehlt ", vbCritical, "Datei nicht bereitgestellt !!!"

End
End If

Public Function psFileExists(PfadNameExt As String) As String
Dim strDummy As String
strDummy = Dir(PfadNameExt, vbNormal)
Debug.Print PfadNameExt
If strDummy = "" Then
psFileExists = "Nein"
Else
psFileExists = "Ja"
End If
End Function


  

Betrifft: "NEIN"<>"Nein" ??? von: ransi
Geschrieben am: 20.08.2012 17:50:08

Hallo

ransi


  

Betrifft: AW: Ueberprüfung, ob Datei vorhanden ist von: Josef Ehrensberger
Geschrieben am: 20.08.2012 18:16:01


Hallo Peter,

warum denn umständlich mit Text arbeiten, verwende doch Wahrheitswerte.

Sub Makro1()
  
  If Not psFileExists(strFullNamePEBS) Then
    MsgBox "Datei " & strFullNamePEBS & " fehlt ", vbCritical, "Datei nicht bereitgestellt !!!"
  Else
    '...
  End If
  
End Sub


Public Function psFileExists(PfadNameExt As String) As Boolean
  psFileExists = Dir(PfadNameExt, vbNormal) <> ""
End Function






« Gruß Sepp »



  

Betrifft: Ohne Function von: Erich G.
Geschrieben am: 20.08.2012 20:29:56

Hi Peter,
noch einfacher ginge es ganz ohne Funktion:

Sub Makro2()
  If Dir(strFullNamePEBS, vbNormal) ="" Then
    MsgBox "Datei " & strFullNamePEBS & " fehlt ", vbCritical, "Datei nicht bereitgestellt !!!"
  Else

    '...
  End If
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich


  

Betrifft: AW: Ueberprüfung, ob Datei vorhanden ist von: Peter
Geschrieben am: 20.08.2012 21:48:21

Guten abend
Vielen Dank für alle Antworten.
Sehr hilfreich!
Gruss, Peter


Beiträge aus den Excel-Beispielen zum Thema "Ueberprüfung, ob Datei vorhanden ist "