|
Hallo!
Ich bin neu hier und hoffe, dass mir vll. jemand helfen kann. Ich verzweifle an einer Excel-VBA Funktion...
Es geht darum, in Excel mit VBA eine .CSV Datei zu importieren. Es funktioniert auch alles gut, nur wird die erste Zeile der CSV immer abgeschnitten und ich komme nict drau warum...
Hier die Funktion:
Sub Datei_Importieren2()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
strFileName = ThisWorkbook.Path & "test.csv"
intUnit = FreeFile
Open strFileName For Input As intUnit
arrDaten = Split(Input(LOF(intUnit), intUnit), vbLf)
Close intUnit
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), ",")
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = lngR + 10
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End Sub
Danke für jede Hilfe und Rat!
|