Hallo
Den nachfolgenden Code habe ich aus dem Forum erhalten und funktioniert auch bei allen bisher eingelesenen CSV-Dateien, außer bei Einer! In der angehängten Datei habe ich dargestellt, wie die Daten richtig und falsch dargestellt werden.
Option Explicit
Sub CSV_Import()
Application.ScreenUpdating = False
Dim arrStrings(1, 1) As Variant
Dim intc As Integer
Dim strPath As String
arrStrings(0, 0) = "TabelleZwei" ' Tabelle für Datei 1 - Anpassen!
arrStrings(0, 1) = "CSV-Neue Version.csv" ' Name von Datei 1 - Anpassen!
arrStrings(1, 0) = "TabelleDrei" ' Tabelle für Datei 2 - Anpassen!
arrStrings(1, 1) = "CSV-Neue Version.csv" ' Name von Datei 2 - Anpassen!
strPath = "C:\Dokumente und Einstellungen\wk\Eigene Dateien\" ' Pfad zu den Dateien - Anpassen!
For intc = 0 To UBound(arrStrings)
Sheets(arrStrings(intc, 0)).Range("A2:IV65536").ClearContents
With Sheets(arrStrings(intc, 0)).QueryTables.Add(Connection:="TEXT;" & strPath & arrStrings(intc, 1) _
, Destination:=Sheets(arrStrings(intc, 0)).Range("A2"))
.Name = arrStrings(intc, 0)
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = False
.AdjustColumnWidth = True
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
End With
Next
https://www.herber.de/bbs/user/47318.xls
Vielleicht hat jemand eine Idee, ob man vielleicht am Code etwas ändern kann, dass auch die eine Datei richtig eingelesen wird.
Besten Dank und Servus, Walter