Access - Exportar todas las filas de una Tabla

Sub ExportarTablaATexto()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim fso As Object

    Dim archivo As Object

    Dim rutaArchivo As String

    Dim linea As String

    ' Establecer la ruta y el nombre del archivo de texto

    rutaArchivo = "C:\ruta\archivo.txt"

    ' Obtener referencia a la base de datos actual

    Set db = CurrentDb

    ' Abrir la tabla y recorrer los registros

    Set rs = db.OpenRecordset("NombreDeLaTabla")

    ' Crear el objeto FileSystemObject

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Crear el archivo de texto

    Set archivo = fso.CreateTextFile(rutaArchivo, True)

    ' Recorrer los registros y escribirlos en el archivo de texto

    With rs

        Do Until .EOF

            ' Construir la línea de texto con los valores de cada campo

            linea = ""

            For i = 0 To .Fields.Count - 1

                linea = linea & .Fields(i).Value & vbTab

            Next i

            ' Escribir la línea en el archivo de texto

            archivo.WriteLine linea

            ' Pasar al siguiente registro

            .MoveNext

        Loop

        .Close

    End With

    ' Cerrar el archivo de texto

    archivo.Close

    ' Liberar memoria

    Set archivo = Nothing

    Set fso = Nothing

    Set rs = Nothing

    Set db = Nothing

    MsgBox "La exportación se ha completado correctamente."

End Sub