Access - Exportar Datos a Excel con un boton de comando

Private Sub btnExportar_Click()

    Dim excelApp As Object

    Dim excelWorkbook As Object

    Dim excelWorksheet As Object

    Dim selectedData As Recordset

    Dim row As Long, col As Long

    ' Crea una instancia de Excel

    Set excelApp = CreateObject("Excel.Application")

    excelApp.Visible = True ' Si deseas que Excel sea visible durante la exportación

    ' Crea un nuevo libro de Excel

    Set excelWorkbook = excelApp.Workbooks.Add

    ' Obtiene una referencia a la hoja de Excel

    Set excelWorksheet = excelWorkbook.Worksheets(1)

    ' Obtiene los datos seleccionados en el formulario

    Set selectedData = Me.RecordsetClone

    ' Copia los encabezados de campo a la hoja de Excel

    For col = 1 To selectedData.Fields.Count

        excelWorksheet.Cells(1, col).Value = selectedData.Fields(col - 1).Name

    Next col

    ' Copia los datos seleccionados a la hoja de Excel

    row = 2

    selectedData.MoveFirst

    Do Until selectedData.EOF

        For col = 1 To selectedData.Fields.Count

            excelWorksheet.Cells(row, col).Value = selectedData.Fields(col - 1).Value

        Next col

        row = row + 1

        selectedData.MoveNext

    Loop

    ' Libera los objetos Excel utilizados

    Set excelWorksheet = Nothing

    Set excelWorkbook = Nothing

    Set excelApp = Nothing

    Set selectedData = Nothing

    MsgBox "Los datos se han exportado correctamente a Excel."

End Sub