Datei aus Excel heraus öffnen
29.11.2005 12:30:43
F
nach betätigen eines CommandButtons kommt ein Dialog zum öffnen einer Datei.
Das funktioniert in meinem Dokument so:
Private Sub CommandButton1_Click()
Dim var As Variant
Dim sFiles As String
sFiles = "TRA Files (*.TRA), *.,"
var = Application.GetOpenFilename(sFiles)
If var = False Then
Exit Sub
End If
Workbooks.OpenText Filename:=var, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, Comma:=True, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
End Sub
Nun möchte ich aber, das der Dialog zum öffnen der Datei direkt
auf das richtige Verzeichnis zeigt. "c:\Firma\Datenfiles\"
Wie geht das?
Für eure Hilfe im vorraus schon einmal vielen Dank
Gruß Frank