Dezimalzeichen beim Einlesen von CSV
05.01.2023 14:02:47
CSV
ich habe mich jetzt durch viele Foren gelesen, aber keine passende Lösung gefunden.
Gerne würde ich eine CSV-Datei mittels VBA einlesen. Das Dezimaltrennzeichen in der CSV-Datei ist leider ein Punkt, anstatt ein Komma.
Weiß jemand wie man das beim Einlesen mittels VBA ändern kann? Mittels "Use Text Import Wizard" ist das ja manuell machbar, leider schreibt der Rekorder das aber nicht mit.
Folgenden Code habe ich zum Einlesen gefunden:
Sub CSV_Einfügen()
Dim Datei As String
ChDrive Left(ThisWorkbook.FullName, 1)
ChDir ThisWorkbook.Path
Datei = Application.GetOpenFilename("CSV, *.csv")
If Not LCase(Datei) Like "*.csv" Then Exit Sub
With Workbooks.Open(Datei, ReadOnly:=True, local:=True)
.Sheets(1).UsedRange.Copy _
ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Cells(1, 1)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = .Sheets(1).Name
.Close False
End With
End Sub
Viele Grüße
Martin