Einlesen CSV Datei Formatierung beibehalten

05/05/2009 - 12:08 von Clarckkent | Report spam
Hallo Zusammen,
wenn ich eine CSV Datei per Excek-VBA einlese, werden die führenden Nullen
nicht eingelesen. Kann mir eventuell jemand einen Tip geben. Danke.

While Not EOF(1)
n = n + 1
Line Input #1, z
a = Split(z, Chr(9))
If Val(a(1)) <> Cells(n - 1, 2) Then
For i = 0 To UBound(a)
Cells(n, i + 1) = a(i)
Next i
Else
n = n - 1
End If
Wend
Close #1

Best regards
Clark
 

Lesen sie die antworten

#1 Martin Hentrich
05/05/2009 - 12:17 | Warnen spam
On Tue, 5 May 2009 03:08:18 -0700, Clarckkent
wrote:

werden die führenden Nullen
nicht eingelesen. Kann mir eventuell jemand einen Tip geben.



Wie ist denn das entsprechende Feld der csv-Datei als Text definiert,
z.B. mittels "..."?

Martin
Eure Rede aber sei: Ja, ja; nein, nein.
Was darüber ist, das ist vom Übel.
[Mt. 5, 37]

Ähnliche fragen