Ich möchte mittels Makro eine CSV Datei importieren. Mein Problem ist, dass die Datenblöcke Semikolon getrennt sind, aber innerhalb auch Zeilenumbrüche vorkommen. Dies soll nicht dazu führen, dass diese Daten in eine separate Zelle (z.B. Spalte A nächste Zeile) geschrieben werden.
Nachfolgend was ich habe:
With wksSheet.QueryTables.Add(Connection:= _
sTemp, Destination:=Range("A1"))
.Name = "detailConn"
.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 = 1
.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)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Was mir fehlt, ist der Delimiter o.ä. für die Zeilenumbrüche. Welcher davon ist es? Fehlt er noch? Oder gibt es keinen?
Alternativ gerne die funktionierende Version von:
'' open text file (should be csv, but there is a bug in MS Excel...)
' Workbooks.OpenText FileName:=sFile, DataType:=xlDelimited, _
' TextQualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
' Semicolon:=True, Comma:=False, Space:=False, Other:=False
Danke.