Hallo & Danke,
konnte nun dadurch den Code zurechschneidern :)
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
xDatei = Application.GetOpenFilename("Excel-Datei,*.xls," & _
"Excel-Dateien,*.xls;*.xlsm;*.xlsx", 2, , True)
'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
Dabnke & GRuss,
Jürgen
|