Aqui te va un ejemplo
======================================================
Set ohoja = CreateObject("Excel.Application")
oarchivo = "K:\resulta.xls" 'crea el archivo en carpeta de trabajo
'ohoja.workbooks.Application.
'ohoja.Workbooks.Open oarchivo
ohoja.Workbooks.Add
'ohoja.Worksheets.Add , , 2
ohoja.Worksheets(1).Name = "Planillas"
ohoja.cells(2, 2).Value = "PLANILLA DE SUELDOS DE TRABAJADORES"
ohoja.cells(4, 1).Value = "Codigo"
ohoja.cells(4, 2).Value = "Ape Pater"
ohoja.cells(4, 3).Value = "Ape Mater"
ohoja.cells(4, 4).Value = "Nombre"
ohoja.cells(4, 5).Value = "Sueldo"
.
.
.
fila = 5
Do Until Adodc1.Recordset.EOF
ohoja.cells(fila, 1).Value = Adodc1.Recordset.Fields(0).Value
ohoja.cells(fila, 2).Value = Adodc1.Recordset.Fields(1).Value
ohoja.cells(fila, 3).Value = Adodc1.Recordset.Fields(2).Value
ohoja.cells(fila, 4).Value = Adodc1.Recordset.Fields(3).Value
ohoja.cells(fila, 5).Value = Adodc1.Recordset.Fields(4).Value
.
.
.
.
fila = fila + 1
Adodc1.Recordset.MoveNext
Loop
'muertra excel
ohoja.Visible = True
ohoja.Worksheets(1).SaveAs "c:\Temp.xls" ', bindOverwriteExisting sobreesceribir
' Cierra el libro de trabajo
ohoja.Workbooks.Close
' Cierra Microsoft Excel con el método Quit.
ohoja.Quit
.
.
.