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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen