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
Wie würded ihr ein xlsx einlesen? - Ist es möglich dies wie oben als Query Table einzulesen, damit ich die Vergleiche der Datein so einfach handhaben kann? Oder muss ich die Datei via "wksCSV.Open Filname := hierDerFilname" einlesen und so bearbeiten? Gibt es hierfür besser Möglichkeiten?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