ich habe 5 csv Dateien. Aus diesen Datensatz möchte ich jeweils einige Daten in einer neuen Excel Datei einspeisen. Wie funktioniert das? Was benötige ich dafür?
Grüße
Chris
Sub aaa()
Dim i As Long, sFile As String, arrDaten(), vRoh, sTmp, sPfad As String
sPfad = ThisWorkbook.Path & "\"
sFile = Dir(sPfad & "*.csv")
Do While sPfad ""
Open sPfad & sFile For Input As #1
Do While Not EOF(1)
Line Input #1, sTmp
vRoh = vRoh & vbCrLf & sTmp
Loop
Close #1
sFile = Dir
Loop
vRoh = Mid(vRoh, 2)
vRoh = Split(vRoh, vbCrLf)
ReDim arrDaten(UBound(vRoh, 3))
For i = 0 To UBound(vRoh)
arrDaten(i, 0) = Split(vRoh(i), ";")(0) 'Sp1
arrDaten(i, 1) = Split(vRoh(i), ";")(2) 'Sp3
arrDaten(i, 2) = Split(vRoh(i), ";")(4) 'Sp5
arrDaten(i, 3) = Split(vRoh(i), ";")(5) 'SP6
Next i
Workbooks.Add.Sheets(1).Cells(1, 1).Resize(UBound(arrDaten) + 1, 4) = arrDaten
End Sub
Gruß