txt datei einlesen
29.05.2015 11:22:55
Mahias
ich habe folgendes Problem ich moechte eine Textdatei mit vba einlesen.
Ich muss ehrlich gestehen, dass ich der totale Anfaenger bin...
Ein fast passendes Marko habe ich schon online gefunden und auf meine Beduerfnisse angepasst. Nur eine Kleinigkeit stoert mich noch total und da braeuchte ich eure Hilfe!!!
die Datei dich ich einlese sieht wie folgt aus:
"R104" 186.8 -50.1 0 180 NONE 0 0 0 0 1 0 "K005924" "R0805" ""
"Vs83" 186.9 -53.9 0 270 NONE 0 0 0 0 1 0 "K012758" "SOT23" ""
das marko welches benutze ist dieses hier:
Sub Schaltfläche9_Klicken()
Dim varName As Variant
Dim i As Long
Dim j As Integer
Dim arZeilen() As String
Dim arData() As String
Dim strVal As String
Dim intColumn As Integer
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
Set wksZ = ActiveWorkbook.Worksheets("Tabelle1")
varName = Application.GetOpenFilename("Textdateien (*.*),*.txt,Alle Dateien,*.*")
If varName = False Then Exit Sub
strPfad = varName
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 = 14 To UBound(vntArrayZeilen)
vntArrayWerte = Split(vntArrayZeilen(lngZeileNr), " ", -1, 1)
For lngSpalte = 0 To UBound(vntArrayWerte)
If IsNumeric(vntArrayWerte(lngSpalte)) Then
wksZ.Cells(lngZeileNr + 1, lngSpalte + 1).Value = Val(Replace(vntArrayWerte(lngSpalte), ",", _
_
".", 1, -1, 1))
Else
wksZ.Cells(lngZeileNr + 1, lngSpalte + 1).Value = vntArrayWerte(lngSpalte)
End If
Next
Next
End Sub
So Jetzt mein Problem:
Die einzulesene Datei enthaelt mal 1 mal 2 mal 5 leerzeichen zwischen den einzelnen Werten und daher verschieben sich die spalten...
Ich haette aber gerne wert1 in spalte1 wert2 in spalte2 usw...
Vielen Dank fuer eure Muehe schon mal im Vorraus