Access - Exportar de Access a Excel con VBA

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim rsDatos As DAO.Recordset

Dim i As Integer

'Abre la aplicación de Excel

Set xlApp = New Excel.Application

'Abre un libro de Excel

Set xlBook = xlApp.Workbooks.Add

'Abre una hoja de Excel

Set xlSheet = xlBook.Worksheets("Hoja1")

'Obtiene los datos del recordset

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

'Coloca los datos en la hoja de Excel

xlSheet.Range("A1").CopyFromRecordset rsDatos

'Posiciona los datos en las celdas B1:B10

For i = 1 To 10

    xlSheet.Range("B" & i).Value = rsDatos.Fields("NombreCampo").Value

    rsDatos.MoveNext

Next i

'Cerrar el recordset

rsDatos.Close

'Cerrar el libro de Excel y la aplicación de Excel

xlBook.Close savechanges:=True

xlApp.Quit

'Setear objetos a Nothing

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing