Automatisch Csv bestanden samenvoegen in één excel bestand

[IvoBookish]

Ik heb div csv besanden met div regels met informatie.
Deze csv's worden qua kolommen in het zelfde format aangeleverd.
Er zit alleen een groot verschil in de regels, maar ook gelijkenissen.

Wat ik zou willen is dat ik "automatisch" of door wat korte handelingen de csv's samen kan voegen vanuit een excel bestand, of naar een excel bestand toe?

Is dit mogelijk?

 

[jkpieterse]

Misschien kan je zoiets gebruiken:

Sub ImporteerCSVs()
    Dim vFileName As Variant
    Dim sPath As String
    Dim lCt As Long
    sPath = "c:\windows\temp\"
    ChDrive sPath
    ChDir sPath
    vFileName = Application.GetOpenFilename("text files (*.csv),*.csv", , "Please select the file(s) to import", , True)
    If TypeName(vFileName) = "Boolean" Then Exit Sub
    For lCt = LBound(vFileName, 1) To UBound(vFileName, 1)
        Workbooks.Open CStr(vFileName(lCt))
        ActiveSheet.UsedRange.Copy
        With ThisWorkbook.Worksheets("Sheet1")
            .Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
        End With
        ActiveWorkbook.Close False
    Next
End Sub

 

[pixcel]

Er zijn verschillende manieren om dit te doen: copy/paste (zoals hierboven); native vba met dir/split en het dumpen van arrays; met ado, sql, een recordset en copyfromrecordset.
Elke techniek heeft zijn voor en nadelen. Het is maar net wat je nodig hebt en waar je comfortabel bij bent.

Waar mogelijk zou ik nu eerst naar Power Query grijpen. Geen vba nodig, kan nagenoeg alles aan.

 

[snb]

of

Sub M_snb()
   shell "cmd /c copy G:\OF\*.csv G:\samen.csv",0
   workbooks.open "G:\samen.csv"
End Sub

 

[IvoBookish]

Mijn kennis is blijkbaar (nog) niet goed genoeg om jullie te volgen.
Ik zal beginnen met Power Query.

Alvast hartelijk dank, ik zal er op terug komen als ik wat meer verdieping in jullie suggesties heb gedaan!