vielleicht kann mir ja jemand hier helfen.?
Ich versuche gerade ein Makro zu schreiben, das automatisch Daten aus einer Textdatei einließt und dann weiter verwendet.
Wenn ich die Textdatei manuell mit 'öffnen mit' 'MS Excel' öffne sind alle Daten da!
Wenn ich aber die Datei von Excel importieren lasse und den Text-Konvertierungsassistenten durchlaufen habe, fehlen immer abschnittsweise Inhalte von ein paar Spalten!
Das selbe fehlerhafte Ergebnis erhalte ich, wenn ich die Datei aus von Excel selber öffnen lasse.
Ich habe schon zwecklos versucht die richtige Einstellung in dem Text-Konvertierungsassistenten hin zu knobeln.
Mein bisheriger Programm-Code war:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;path" _
, Destination:=Range("A1"))
.Name = "name"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.Refresh BackgroundQuery:=False
End With
Also wenn irgend jemand eine Idee hat...
Ich bin für jede Antwort dankbar.
Gruss
Florian