• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel csv

  • Onderwerp starter Onderwerp starter Sjoef
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Sjoef

Gebruiker
Lid geworden
12 mei 2009
Berichten
270
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan