Prpfung, ob eine Datei existiert

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Prpfung, ob eine Datei existiert
von: Lutz
Geschrieben am: 14.07.2002 - 11:02:23

Liebe Leute,

ich habe ein recht komplexes Makro zur Einfärbung von Rechtecken etc. anhand einer Kalkulationstabelle geschrieben. Es dient der Kennzeichnung gebuchter Messehallen. Diese als "Plandatei" bezeichnete Arbeitsmappe wird unter dem gleichen Namen und im gleichen Verzeichnis wie die Kalkulationsdatei gespeichert (mit der Zusatzendung " Plan.xls"). Nun möchte ich in einem Makro prüfen, ob zu einer bestimmten Kalkulationtabelle bereits ein Plan existiert um in einer UserForm den Punkt "Vorhandenen Plan öffnen" anzeigen zu lassen oder eben auch nicht.

Vielen Dank für Eure Hilfe.

Freundliche Grüße

Lutz H. Janne


nach oben   nach unten

Re: Prüfung, ob eine Datei existiert
von: Hajo_Zi
Geschrieben am: 14.07.2002 - 11:05:21

Hallo Lutz


Sub Vorhanden_Datei()
    If Dir("E:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
        MsgBox "vorhanden"
    Else
        MsgBox "nicht vorhanden"
    End If
End Sub

Sub Vorhanden_Phad()
    If Dir("E:\Eigene Dateien\Hajo1\") <> "" Then
        MsgBox "vorhanden"
    Else
        MsgBox "nicht vorhanden"
    End If
End Sub

Sub Ordner_vorhanden()
'   von Berti Koern
    Dim Fso, Ordnername
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Ordnername = "C:Temp1"
    MsgBox Fso.FolderExists(Ordnername)
End Sub

Sub Datei_vorhanden()
'   von Berti Koern
    Dim Fso, Dateiname
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Dateiname = "C:Temp\Test1.txt"
    MsgBox Fso.FileExists(Dateiname)
End Sub


Gruß Hajo

nach oben   nach unten

Re: Prpfung, ob eine Datei existiert
von: Andreas
Geschrieben am: 14.07.2002 - 11:06:49

Hallo Lutz,

Du willst also prüfen ob eine Datei schon existiert. Schau Dir dazu mal die Excel-Hilfe zu Dir() an!
Könnte dann etwa so aussehen:
If Dir("C:\Temp\2002 Plan.XLS") <> "" Then '... existiert

Viel Spaß,
Andreas

nach oben   nach unten

Re: Prpfung, ob eine Datei existiert
von: Rolf, Lgh.
Geschrieben am: 14.07.2002 - 11:09:07

Hallo Lutz,
vielleicht hilft Dir das weiter:
https://www.herber.de/mailing/115500h.htm
oder
https://www.herber.de/mailing/139901h.htm
Gruß Rolf

nach oben   nach unten

Re: Prüfung, ob eine Datei existiert
von: Lutz
Geschrieben am: 14.07.2002 - 11:09:28

Dank an alle für die wahnsinnig schnelle Beantwortung :-)

Beste Grüße

Lutz

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Prpfung, ob eine Datei existiert"