Datenimport aus txt mit O. 365 (Legacy)
13.10.2020 11:45:09
Gode
ich kämpfe mal wieder an der Umstellungsfront (Office 2010 auf 365).
Wir haben sehr viele Excel-Auswertungen, bei denen txt-Dateien aus dem ERP-System generiert, diese dann makrogesteuert importiert und eine entspr. Auswertung erstellt wird.
Beispielhaft sieht der Import aus der Textdatei z.B. so aus (sicher irgendwann aus Makroaufzeichnung entstanden):
With ActiveSheet.QueryTables.Add(Connection:="TEXT;H:\Temp\100003_03.txt", _
Destination:=Range("$A$5"))
.Name = "100003_03"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Kann es sein, dass neuere Office-Version mit dem Legacy-Import hier "empfindlicher" reagieren?
Man könnte natürlich jetzt den Import so umbauen, dass alle Zeilen übernommen werden und die Zeile 5 mit den dann doppelt vorhanden Überschriften direkt nach dem Import gelöscht wird.
Aber evtl. gibt es hier auch einen anderen Lösungsansatz (nein, Umstellung auf Query-Abfrage geht momentan noch nicht!) ... kann mir irgendwie nicht vorstellen, dass dies nicht aufwärts kompatibel sein soll!?
Gruß
Gode