Visual Basic - Exportar una tabla a excel

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

'Crear hoja de Excel

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add

'Añadir datos celda a celda

Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1").Value = "Título A"

oSheet.Range("B1").Value = "Título B"

oSheet.Range("A1:B1").Font.Bold = True

oSheet.Range("A2").Value = Rs.Fields("campo1")

oSheet.Range("B2").Value = Rs.Fields("campo2")

'Guardar Excel en disco duro

oBook.SaveAs "C:\Excel1.xls"

oExcel.Quit