Hallo, ik heb een aantal excel csv files. Elke file bevat 2 regels. 1e regel is kolomnaam en de 2e regel is data. Nu wil ik alle data van alle files in 1 werkblad zien te krijgen. Hier op het forum heb ik de volgende code gevonden:
Private Sub CommandButton1_Click()
Dim Bestand As Variant
Bestand = Application.GetOpenFilename("Excel Files (*.Csv), *.Csv", 2, "Open My Files", , True)
Bestand = Application.g
For y = 1 To UBound(Bestand)
Sheets.Add Type:=Bestand(y), Count:=Sheets(Sheets.Count)
Next
End Sub
deze code importeert wel alle files maar zet ze ieder in een apart werkblad.
Mijn kennis van excel is niet zo groot en daarom is mijn vraag of iemand mij kan helpen om ervoor te zorgen dat alle data in 1 werkblad komt.
Bij voorbaat dank.
Sjoef
Private Sub CommandButton1_Click()
Dim Bestand As Variant
Bestand = Application.GetOpenFilename("Excel Files (*.Csv), *.Csv", 2, "Open My Files", , True)
Bestand = Application.g
For y = 1 To UBound(Bestand)
Sheets.Add Type:=Bestand(y), Count:=Sheets(Sheets.Count)
Next
End Sub
deze code importeert wel alle files maar zet ze ieder in een apart werkblad.
Mijn kennis van excel is niet zo groot en daarom is mijn vraag of iemand mij kan helpen om ervoor te zorgen dat alle data in 1 werkblad komt.
Bij voorbaat dank.
Sjoef
