Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rsDatos As DAO.Recordset

'Abrimos Excel

Set xlApp = New Excel.Application

'Creamos un libro

Set xlBook = xlApp.Workbooks.Add

'Creamos una hoja

Set xlSheet = xlBook.Worksheets("Hoja1")

'Si hemos filtrado, obtenemos los datos del recordset

If FilterOn = True Then

Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM Tabla WHERE " & Form_Formulario.Filter)

'En caso contrario, la tabla entera

Else

Set rsDatos = CurrentDb.OpenRecordset("SELECT * FROM Tabla")

End If

'Exportamos los datos a Excel

xlSheet.Range("A1").CopyFromRecordset rsDatos

'Cerramos el recordset

rsDatos.Close

'Cerramos el libro y la aplicación

xlBook.Close savechanges:=True
xlApp.Quit

'Reseteamos los objetos

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

End Sub