Visual Basic para Aplicaciones - Ayuda con Excel!!!

Saludos colegas Programadores, soy un novato ke pide de sus sabios consejos, veran, tengo una aplicasion ke captura ciertos datos y los guarda en una BD acces, posteriormente tenog ke hacer un reporte con esos datos, pero me piden ke sea en Excel!, como le hago para dar la presentacion adecuada a los datos? ( formato de hoja, celdas unidas, color de fondo d euna celda X cosa), ytambien como hago ke los Datos de la BD se pasen al Excel pulsando un commondbutton??...
Espero me dia entender y ke vos me ayudes en mi cerio problema!!!
SIN MAS!!!:::GRACIAS!!
contestadme por aki o
Escribirme a mi correo...
Grax!

Amigo tengo un codigo de uno de mis programas y justo tuve ke hacer hace algun tiempo algo parecido y me funciono, espero que te sirva.
Pd:cambia los parametros.
______________________________o______________________________

Private Sub Command3_Click()
Dim i As Integer
i = 2
Set appExcel = CreateObject("Excel.Application")
strRuta = App.Path & "\clientes2.xls"
SQL = "select * from clientes"
Set registro = basedato.OpenRecordset(SQL, dbOpenDynaset)
appExcel.Workbooks.Add
MsgBox "Listo", vbInformation, "Done"
appExcel.Visible = True
appExcel.Range("A1:M1").Borders.Color = RGB(0, 0, 0)
appExcel.Range("A1:M1").Font.Bold = True
appExcel.Cells(1, 1) = "Rut"
appExcel.Cells(1, 2) = "Nombre"
appExcel.Cells(1, 3) = "Ap. Paterno"
appExcel.Cells(1, 4) = "Ap. Materno"
appExcel.Cells(1, 5) = "Calle"
appExcel.Cells(1, 6) = "Numero"
appExcel.Cells(1, 7) = "Comuna"
appExcel.Cells(1, 8) = "Cod. Serv."
appExcel.Cells(1, 9) = "Estado"
appExcel.Cells(1, 10) = "Uso Mensual"
appExcel.Cells(1, 11) = "Fecha Ingreso"
appExcel.Cells(1, 12) = "Min. Usados"
appExcel.Cells(1, 13) = "Total Min. en $"
Do Until registro.EOF
appExcel.Cells(i, 1) = registro!Rut
appExcel.Cells(i, 2) = registro!Nombre
appExcel.Cells(i, 3) = registro!Apellidopat
appExcel.Cells(i, 4) = registro!Apellidomat
appExcel.Cells(i, 5) = registro!Calle
appExcel.Cells(i, 6) = registro!Numero
appExcel.Cells(i, 7) = registro!Comunas
appExcel.Cells(i, 8) = registro!CodServ
appExcel.Cells(i, 9) = registro!estado
appExcel.Cells(i, 10) = registro!UsoMensual
appExcel.Cells(i, 11) = registro!Antiguedad
appExcel.Cells(i, 12) = registro!Min
appExcel.Cells(i, 13) = registro!Uso
i = i + 1
registro.MoveNext
Loop
appExcel.ActiveWorkbook.SaveAs (App.Path & "\clientes2.xls")
Set appExcel = Nothing

End Sub

Genial!!...Muchisimas GRacias Amigo y colega!! aprecio mucho tu sabiduria y conocimiento, ahora con el codigo me me abeis pasado podre finalizar mi aplicasion. aunque tengo algunas cuantas dudas, es ke aun no soy muy bueno, keria preguntarte como o mas bien de ke tipo estan declaradas las variables:

"strruta"
"basedato"
"registro"

supongo ke registro esta declarada como recorset (dim registro as new ADODB.recordset)

pero no comprendo como fueron declaradas las otras variables o como hago la conexion de mi BD con Excel ( refiero al translado de Datos)

DIras ke soy muy molesto, pore neesito me comprendas y me ayudes nuevamente,
Por tu Atencion Mil Gracias! AMigo Akbar!!!...