Über Xl Dialog open
26.02.2004 09:30:40
Giuseppe
wie kann ich der folgenden Code ändern, damit beim Dialog Open eine bestimmte Verzeichniss gewählt wird (z.B.: "C:\Test"?
Mit
Application.Dialogs(xlDialogOpen).Show "C:\Test"
ist kein Problem (ich hätte aber gerne der Title geändert haben!!)
Option Explicit
Sub DialogDateiOeffnenEineDatei()
Dim xlDateiName As Variant
'Öffnen-Dialog anzeigen:
xlDateiName = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:=" eine Datei zum Öffnen auswählen")
'Wenn "Abbrechen"...
If TypeName(xlDateiName) = "Boolean" Then Exit Sub
MsgBox xlDateiName, Title:=" Ausgewählte Datei..."
On Error Resume Next
'Excel-Datei öffnen:
Workbooks.Open FileName:=xlDateiName
End Sub
Danke
Gruß Giuseppe