Trucos y ejemplos de VBA para Microsoft Access

Rutina de lectura:

Public Sub ImportV2()
    Dim strReg As String
    Dim strFile As String
    Dim fso As FileSystemObject
    Dim fil As Object
    strFile = "C:\Users\username\Downloads\file.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fil = fso.OpenTextFile(strFile, 1)
    Do Until fil.AtEndOfStream
        strReg = fil.ReadLine
    Loop
    fil.Close
End Sub

Recordar que se requiere una referencia a la librería: Microsoft Office 16.0 Object Library.

Public Function SelectFileSample() As String
   ' Requires reference to Microsoft Office 16.0 Object Library.
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Dim fso As FileSystemObject
   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
        '.InitialFileName = strCarpeta ' Default folder
        ' Allow user to make multiple selections in dialog box
        .AllowMultiSelect = False
        ' Set the title of the dialog box.
        .Title = "Seleccionar un fichero"
        ' Clear out the current filters, and add our own.
        .Filters.Clear
        ' Sample for filters
        '.Filters.Add "Image JPG", "*.JPG"
        '.Filters.Add "Image PNG", "*.PNG"
        .Filters.Add "Todos los archivos", "*.*"
        ' Show the dialog box. If the .Show method returns True, the
        ' user picked at least one file. If the .Show method returns
        ' False, the user clicked Cancel.
        If .Show = True Then
           'Loop through each file selected and add it to our list box.
           For Each varFile In .SelectedItems
             'Me.FileList.AddItem varFile
              SelectFileSample = varFile
           Next
        Else
           MsgBox "No saleccionado ningún fichero", vbInformation, "Select File"
        End If
   End With
End Function

El siguiente código asume que todos tus archivos CSV tienen la misma estructura (es decir, las mismas columnas en el mismo orden). El proceso básicamente abre cada archivo CSV en la carpeta especificada, lee su contenido y lo escribe en un nuevo archivo CSV.

    Dim rutaCarpeta As String
    Dim archivo As String
    Dim nombreArchivoUnido As String
    Dim textoArchivo As String
    Dim primeraLinea As Boolean
    Dim numArchivo As Integer
    Dim fso As Object, ts As Object, tsUnion As Object

    rutaCarpeta = "C:\TuCarpeta\" ' Modifica con la ruta de tu carpeta
    nombreArchivoUnido = rutaCarpeta & "ArchivoUnido.csv" ' Nombre del archivo final

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tsUnion = fso.CreateTextFile(nombreArchivoUnido, True)

    archivo = Dir(rutaCarpeta & "*.csv")
    primeraLinea = True

    Do While archivo <> ""
        ' Evita leer el archivo unido si ya existe en la carpeta
        If archivo <> "ArchivoUnido.csv" Then
            numArchivo = numArchivo + 1
            Set ts = fso.OpenTextFile(rutaCarpeta & archivo, ForReading)

            ' Omitir la primera línea del archivo si no es el primero (suponiendo que es el encabezado)
            If Not primeraLinea Then ts.ReadLine

            ' Leer el contenido del archivo y escribirlo en el archivo unido
            Do While ts.AtEndOfStream <> True
                textoArchivo = ts.ReadLine
                tsUnion.WriteLine textoArchivo
            Loop

            ts.Close
            primeraLinea = False
        End If

        archivo = Dir() ' Siguiente archivo
    Loop

    tsUnion.Close
    Set ts = Nothing
    Set tsUnion = Nothing
    Set fso = Nothing

    MsgBox numArchivo & " archivos han sido unidos en " & nombreArchivoUnido, vbInformation
End Sub

Este código realiza las siguientes tareas:

1. Establece la ruta de la carpeta donde se encuentran los archivos CSV y el nombre del archivo CSV unido final.
2. Utiliza un objeto FileSystemObject para trabajar con archivos y carpetas.
3. Abre cada archivo CSV en la carpeta, omite la primera línea para todos los archivos excepto el primero (asumiendo que es un encabezado) y escribe su contenido en un nuevo archivo CSV.
4. Continúa este proceso para todos los archivos CSV en la carpeta.
5. Muestra un mensaje al finalizar, indicando cuántos archivos han sido unidos.

Asegúrate de modificar rutaCarpeta con la ruta correcta de tu carpeta de archivos CSV. También, este código omite el encabezado de todos los archivos excepto el primero; si tus archivos no tienen encabezados o quieres incluirlos todos, puedes ajustar la lógica acordemente. Este código es un punto de partida básico. Dependiendo de tus necesidades específicas, podrías necesitar hacer ajustes, especialmente si los archivos CSV tienen diferentes estructuras o requieres un procesamiento de datos más complejo.