|
Hallo zusammen,
nach viel googlen...und paste© und try&error habe ich mir einen Code zusammen gestöpselt.
Zwar nicht ganz optimal aber brauchbar:
Dim xFilter As String, xDatei As String
Sub Datei_suchen_oeffnen()
ChDrive "C:\tmp"
ChDir "C:\tmp\kalkulation\"
'nur Dateien mit entsprechenden Dateityp werden im Dialog angezeigt, _
auch wenn sich noch anderenDateien im Pfad befinden!
xFilter = "Exceldateien (*.xlsm), *.xls"
xDatei = Application.GetOpenFilename(xFilter, 1, "Datei Öffnen", "Öffnen", False)
'wenn Auswahldialog abgebrochen
If InStr(1, "*falsch*false*", LCase(xDatei), vbTextCompare) > 0 Then
MsgBox "Datei-Öffnen-Dialog wurde abgebrochen!", 16
Exit Sub
End If
'jetzt ausgewählte Datei öffnen
Workbooks.OpenText Filename:= _
xDatei, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 2), Array(7, 2), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), _
TrailingMinusNumbers:=True
End Sub
Es ist ein Filter auf die Dateiendungen gesetzt:
xFilter = "Exceldateien (*.xlsm), *.xlsm"
Eine Frage dazu:
Kann man den Filter auf weitere Dateiendungen erweitern (z.B. *.xls) und wenn, wie?
Danke & Gruss,
Jürgen
|