Hallo Excelprofis,
mit folgendem code lese ich eine CSV ein:
gn_datei = Application.GetOpenFilename(gn_dateien)
If gn_datei False Then
Dim LineFromFile As String
Dim LineItems As Variant
Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile ("test.csv")
Do Until objStream.EOS 'Gesammtes TextDok durchgehen
LineFromFile = objStream.ReadText(-2) 'Zeile aus Quelldatei einlesen
LineItems = Split(LineFromFile, ";")
y = UBound(LineItems)
If Cells(1, 1) = "" Then
e1 = 1
Else
e1 = Letzte_Zeile_in_Spalte(1) + 1
End If
For y1 = 0 To y
Cells(e1, y1 + 1).Value = LineItems(y1)
Next y1
Loop
Set objStream = Nothing
End If
Nun kommen in der CSV auch Zahlen mit mehr als 20 Stellen vor; Excel zeigt mir diese dann in Expontenschreibweise an.
Frage: Wie kann ich die 20stelligen Zahlen original wie in der CSV darstellen?
Die Zahlen können in beliebigen Spalten der CSV vorkommen.
Danke für Hilfe!
MfG
Heinz