Hallo zusammen!
Ich bin beim Import von Textdateien im .tsv Format darauf angewiesen, dass alle Spalten als Text importiert werden.
Workbooks.Add.SaveAs Filename:=Left(element, (Len(element)) - 4)
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & element & "" _
, Destination:=Range("A1"))
.Name = "Imort"
.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 = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Beim .TextFileColumnDataTypes = Array(2) muss allerdings für jede Spalte eine 2(also Textformat) angegeben werden.
Es handelt sich bei dem Import allerdings immer um unterschiedliche Dateien mit unterschiedlicher Anzahl von Spalten.
Weiss jemand ich ich dieses Problem lösen kann? Muss ich etwa 256 mal die 2 einsetzen oder geht das einfacher? Vielen Dank!!