xlsx einlesen und verarbeiten
19.11.2013 09:03:20
Mike
Ich habe ein Makro, welches zwei CSV einliest und einige Zellen, bzw. Spalten aus beiden vergleicht.
Nun ist es jedoch so, das die eine Datei kein CSV sondern eine .xlsx - Datei ist. Nun falle ich mit folgendem auf die Schnauze und im File wird nur "Schrott" eingelesen/angezeigt und kann somit nicht verglichen werden.
Dim wksCSV_C As Worksheet
With wksCSV
.Cells.Clear
With .QueryTables.Add(Connection:= _
"TEXT;" & strDatei_C, Destination:=wksCSV.Range("$A$1"))
.Name = "CSV"
.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 = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Was vielleicht noch wichtig ist, ich will die xlsx Datei einlesen, dann wird automatisch das CSV in einem neuen Tabellenblatt eingelesen. Dann werden beide verglichen und im Tabellenblatt des xlsx, werden gewisse Unterschiede gekennzeichnet.
Dies wäre die Endfunktion. Und hat mit zwei CSV funktioniert...
Ich kann die xlsx leider nicht vorgängig zu CSV machen sondern muss diese so verwenden.
Wäre schon um einen Denkanstoss sehr dankbar.
mfG
Mike