eingelesene Daten aus txt Datei
22.09.2014 10:50:20
Frank
ich habe hier im Forum einen brauchbaren Code zum Importieren von txt Dateien gefunden. Ich importiere lediglich die ersten beiden Spalten. Das Problem dabei ist, dass die Werte nicht richtig importiert werden. Das heißt alle Zahlen die kleiner sind als 1, werden richtig mit einem Komma importiert. Alle Zahlen die größer als 1 sind werden im "Tausenderformat" importiert. Im Lokalfenster wird die Zahl jedoch richtig angezeigt.
Anbei der Code sowie ein Bild.
Sub MachsMal()
Dim strPfad As String
Dim lngFN As Long
Dim strText As String
Dim vntArrayZeilen As Variant
Dim lngZeileNr As Long
Dim vntArrayWerte As Variant
Dim lngSpalte As Long
Dim wksZ As Worksheet
Dim Dateiname As Variant
Set wksZ = ActiveWorkbook.Worksheets("Tabelle1")
strPfad = "c:\test.txt"
lngFN = FreeFile
Open strPfad For Binary As lngFN
strText = Space(LOF(lngFN))
Get lngFN, 1, strText
Close lngFN
strText = Replace(strText, vbTab, " ", 1, -1, 1)
vntArrayZeilen = Split(strText, vbCrLf, -1, 1)
For lngZeileNr = 1 To UBound(vntArrayZeilen) - 2
vntArrayWerte = Split(vntArrayZeilen(lngZeileNr), ";", -1, 1)
For lngSpalte = 0 To 1
wksZ.Cells(lngZeileNr + 1, lngSpalte + 1).Value = vntArrayWerte(lngSpalte)
Next
Next
End Sub
https://www.herber.de/bbs/user/92745.jpg
Ich würde mich freuen, wenn mir jemand sagen könnte wie ich dieses Problem umgehen kann.
Vielen Dank und viele Grüße
Frank
Anzeige