Hallo,
Ich möchte eine Txt-Datei in Excel importieren über den Legacy-Textkonvertierungsassistenten mit einem Datei-Öffnen-Dialog. Dies habe ich versucht, in VBA zu implementieren.
Sub RohdatenEinlesen()
Dim FLC_Datei As Variant
ThisWorkbook.Worksheets.Add.Name = "Rohdaten"
FLC_Datei = Application.GetOpenFilename("Alle-Dateien (*.*),*.*,", MultiSelect:=False)
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;FLC-Datei" _
, Destination:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 2
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(10, 11, 12, 10, 11, 11, 12, 11)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Ich kann zwar die Datei auswählen im Dialog, jedoch passiert am Ende gar nichts.
Wenn ich stattdessen ohne den Dialog in der "With" Zeile direkt den Pfad übergebe, funktioniert es ohne Probleme.