Re: Application.GetOpenFilename
05.11.2002 08:57:43
Steffen D
Ich tue diese Datei vorher öffnen, und wenn das nicht klappt (Datei verschoben) dann muß der Benutzer die Datei selber auswählen.
hier mein größerer Ausschnitt: vFile = "C:\Temp\Mappe.xls"
Datei1 = Dir(vFile)
If Datei1 = "" Then
MsgBox ("Prüfen Sie bitte diesen Pfad, od die Datei existiert:" & vbNewLine & vFile)
vFile = Application.GetOpenFilename("Microsoft Excel-Dateien (*.txt), *.xls", , "Bitte wählen Sie die Datei Mappe.xls aus")
End If
Workbooks.Open Filename:=vFile, ReadOnly:=True
Danke schon mal,
weiß du zufällig auch wie das mit dem chdir funktioniert, ich möchte das GetOpenFilename standardmäßig auf den Pfad "//Ntserver" geht, wie geht das?
thx
Steffen