exportar a excel

[gervime]

Salu2 no se si alguien me pudiera echar la mano para hacer un boton en Vbasic que me permita exportar los datos de una tabla en access a excel

[ci2000]

Espero te sirva:

Código:

Dim ApExcel As Variant

Set ApExcel = CreateObject("Excel.application")

'Hace que Excel se vea
ApExcel.Visible = True

'Abre el libro
ApExcel.Workbooks.Open (App.Path & "\Libro1.xls")

'Poner Titulos
ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion"
ApExcel.cells(1, 1).Font.Size = 18
ApExcel.cells(2, 2).Formula = "Debe"
ApExcel.cells(2, 3).Formula = "Haber"
ApExcel.cells(2, 4).Formula = "Saldo"
ApExcel.cells(3, 2).Formula = 200
ApExcel.cells(3, 3).Formula = 100
' Aplica Formula
ApExcel.cells(3, 4).Formula = "=B3-C3"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.RANGE("B3:D3").BORDERS.Color = RGB(255, 0, 0)
Clave:
 
ApExcel.ActiveWorkBook.Save
ApExcel.Workbooks.Close
Set ApExcel = Nothing
MsgBox "Listo"