Hallo,
mein Problem hat sich konkretisiert: wie kann ich die Codezeile "Filter" auf weitere Dateiendungen erweitern, welche angezeigt werden sollen!?
Jetzt werden nur die "*.xlsm" dateien angezeigt, bräuchte aber auch die "*.xls".
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), *.xlsm"
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
|