Merge CSV filer i kolonner:

vbs - du kan læse en linje ad gangen
https://www.wiseowl.co.uk/blog/s211/readline.htm
du kan lave en rutine, hvis du placerer alle 30 filer i en mappe og kalder din vbs med første fils navn. Så kan du åbne den og læse første linje med, og derefter læse alle filer i mappen og i dem læse linjer fra 2 til 8 (du læser fra linje 1, men den skriver du bare ikke til den nye samlede fil)
det hele skrives så i en ny fil undervejs - den nye fil åbnes ved start, og du åbner og lukker kildefiler i et loop, og når loop er endt, så lukker du den nye fil.

Her et eksempel med fast liste af filer - det kan også laves som et mønster hvor de enkelte filnavne dannes i en løkke.

Function rows()
    Dim line, lineNr, row, headings, fn
    rows = Split("", ".")
    Const path = "C:\csvdata\"
   
    For Each fn In Array( _
          "csvdata1.csv" _
        , "csvdata2.csv" _
        , "csvdata3.csv")
        row = ""
        lineNr = 0
        With CreateObject("Scripting.FileSystemObject").OpenTextFile(path & fn, ForReading)
            While Not .AtEndOfStream
                line = .ReadLine
                If Len(line) Then
                    lineNr = lineNr + 1
                    If lineNr > 2 Then
                        If Not IsNull(headings) Then headings = headings & Split(line, ",")(0) & ","
                        row = row & Split(line, ",")(1) & ","
                End If: End If
          Wend
          .Close
        End With
        If Not IsNull(headings) Then
            addrow rows, slice(headings, , -1)
            headings = Null
        End If
        addrow rows, slice(row, , -1)
    Next
End Function

Filen der skal skrives til, fn,  dannes vha følgende der kalder ovenstående:

Sub rows2csv(fn)
    Dim row
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(fn)
        For Each row In rows()
            .WriteLine row
        Next
        .Close
    End With
End Sub

Der er anvendt følgende hjælpefunktioner:

Sub addrow(r, i)
    ReDim Preserve r(UBound(r) + 1)
    r(UBound(r)) = i
End Sub

Function slice(str, Optional start = 0, Optional obEnd)
    If IsMissing(obEnd) Then obEnd = Len(str)
    If obEnd < 0 Then obEnd = Len(str) + obEnd
    If start < 0 Then start = Len(str) + start
    str = Mid(str, start + 1, obEnd - start)
    slice = str
End Function