Herbers Excel-Forum - das Archiv

Namensüberprüfung beim öffnen

Bild

Betrifft: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 09:31:09
Wunderschönen Start in die neue Woche wünsch ich euch.

Man kann ja ich Excel eine Datei mittels Makro öffnen.
Gibts da ne Möglichkeit, zu prüfen ob eine bestimmt Datei überhaupt existiert?

Ich habe ein Mappe, die unter dem aktuellem Datum mittels Makro gespeichert wird.
Sprich: D:\Archiv\mappe_2003-10-13.xls für heute. ("D:\Archiv\mappe_" & date)
Beim Öffnen der Datei mappe.xls möchte ich eine Prüfung einbauen.
Es soll geprüft werden, ob es die aktuelle Datei schon gibt.
Wenn ja, dann soll diese geöffnet werden und nicht die datei mappe.xls
Wenn nein, dann soll der User nichts davon mitbekommen und die Datei mappe.xls soll geöffnet werden.

Gruß
Marc

Bild

Betrifft: AW: Namensüberprüfung beim öffnen
von: Hajo_Zi
Geschrieben am: 13.10.2003 09:41:43
Hallo Marc

Option Explicit

Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub


Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
If Dir("D:\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 = "D:\Eigene Dateien\Hajo\"
MsgBox Fso.FolderExists(Ordnername)
End Sub


Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 10:16:09
Thx Hajo

nach ein bissel austauschen hats geklappt.

Gruß+Dank
Marc
Bild

Betrifft: AW: Namensüberprüfung beim öffnen
von: Marc Voelker
Geschrieben am: 13.10.2003 11:22:40
Noch ne frage.
wie kann ich das makro bei start ausführen lassen?

Gruß
Marc
Bild

Betrifft: AW: Namensüberprüfung beim öffnen
von: Hajo_Zi
Geschrieben am: 13.10.2003 11:26:12
Hallo Marc

Fragen immer zu der Antwort schreiben, was gibt es mir, wenn ich Deine Antwort sehe???

Schreibe es inVBA unter Diesearbeitsmappe unter Private Sub Workbook_Open()


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: Thx
von: Marc Voelker
Geschrieben am: 13.10.2003 11:52:25
..
 Bild