Access - de access a excel. Urgente!!!!! Por favor

Sub ExportarDatosExcel()

    Dim db As Database

    Dim rs As Recordset

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim i As Integer

    ' Ruta y nombre del archivo Excel destino

    Dim rutaArchivo As String

    rutaArchivo = "C:\Ruta\Archivo.xlsx"

    ' Abre la conexión con la base de datos de Access y la consulta que deseas exportar

    Set db = CurrentDb

    Set rs = db.OpenRecordset("NombreConsulta")

    ' Crea una nueva instancia de Excel

    Set xlApp = CreateObject("Excel.Application")

    ' Abre el libro de Excel especificado

    Set xlBook = xlApp.Workbooks.Open(rutaArchivo)

    ' Selecciona la hoja de Excel en la que deseas colocar los datos

    Set xlSheet = xlBook.Sheets("NombreHoja")

    ' Coloca los datos en las celdas específicas

    i = 1

    Do Until rs.EOF

        xlSheet.Cells(i, 1).Value = rs("Campo1")

        xlSheet.Cells(i, 2).Value = rs("Campo2")

        ' Puedes seguir agregando líneas similares para cada campo y celda que desees

        i = i + 1

        rs.MoveNext

    Loop

    ' Cierra y guarda el libro de Excel

    xlBook.Close SaveChanges:=True

    ' Cierra la conexión con la base de datos de Access

    rs.Close

    Set rs = Nothing

    Set db = Nothing

    ' Cierra la aplicación de Excel

    xlApp.Quit

    Set xlApp = Nothing

    MsgBox "Datos exportados exitosamente a Excel.", vbInformation

End Sub