Visual Basic - Reporte en Excel S.O.S

hola , les pido un favor, necesito generar una consulta pero en vez que sea en un reporte normal los datos sean enviados a una planilla excel , alguien me puede dar algun ejemplo de como hacerlo???? porfa enviameelo al correo o por aqui......S.O.S

Si estás utilizando Crystal Reports tienes una opción para exportar a Excel. Sino puedes agregar la referencia a Excel a tu proyecto y hacer:

Dim objExcel As Excel.Application, i As Long

Set objExcel = New Excel.Application

i=1

With objExcel
.Workbooks.Add

While Not MiRecordset.EOF
.Range("A" & i).Select
.ActiveCell.FormulaR1C1 = MiRecordset.Fields.Item("Columna1").Value

.Range("B" & i).Select
.ActiveCell.FormulaR1C1 = MiRecordset.Fields.Item("Columna2").Value

i=i+1

MiRecordset.MoveNext
Wend

.Visible = True
End With