VBA: CSV Import mit Dezimaltrennzeichen(,)

Hallo Zusammen,
ich habe folgendes Problem:
Ich importiere eine CSV Datei in ein Excel Dokument. Die CSV Datei enthält unter anderem Dezimalzahlen. Nach dem die CSV Datei eingelesen wurde werden im Excel Dokument die Dezimalzahlen mit einem . (Punkt) anstatt eines , (Kommas) aufgeführt.
Mein folgender Code für den Import:
Set Daten = Workbooks.Open("Pfad/Daten_" & Format(Daten, "m") - 1 & ".xlsx")
Open "Pfad/Daten1_" & Format(Daten, "m") - 1 & ".csv" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Zeile
T = Split(Zeile, ";")
For k = 0 To UBound(T)
AE_Daten.Sheets(1).Cells(i, k + 1).Value = T(k)
Next k
i = i + 1
Loop
Close #1
Über Eure Hilfe würde ich mich sehr freuen!
Viele Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With AE_Daten.Sheets(1).QueryTables.Add(Connection:="TEXT;" & _ "Pfad/Daten1_" & Format(Daten, "m") - 1 & ".csv", Destination:=Range("$A$1")) .Name = "import" .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 = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With

Hallo Sepp,
ich habe deinen Vorschlag versucht umzusetzen, leider erhalte ich immer folgende Fehlermeldung: "Anwendungs- oder objektdefinierter Fehler"
Ich hoffe ihr könnt mir helfen! Unten stehend mein Code.

Set AE_Daten = Workbooks.Open("L:\Reporting\AEDaten_" & Format(Date, "m") - 1 & ".xlsx")
With AE_Daten.Sheets(1).QueryTables.Add(Connection:="TEXT;" & _
"L:\Reporting\Daten1_" & Format(Date, "m") - 1 & ".csv", Destination:=AE_Daten.Sheets(1).Range(" _
$A1$"))
.Name = "Daten1"
.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 = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Set AE_Daten = Workbooks.Open("L:\Reporting\AEDaten_" & Format(Date, "m") - 1 & ".xlsx") With AE_Daten.Sheets(1).QueryTables.Add(Connection:="TEXT;" & _ "L:\Reporting\Daten1_" & Format(Date, "m") - 1 & ".csv", Destination:=.Range("$A1$")) .Name = "Daten1" .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 = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With

Beliebteste Forumthreads (12 Monate)

VBA: CSV Import mit Dezimaltrennzeichen(,)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: CSV Import mit Dezimaltrennzeichen(,)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread