tmpsheet = GetObject('c:\cuadrodemando\reports\resultadotable ro.xls','excel.sheet')
XLApp = tmpsheet.application
XLApp.WorkBooks.OPEN('c:\cuadrodemando\reports\res ultadotablero.xls')
XLSheet = XLApp.ActiveSheet
with thisform

XLSheet.Cells(3,1).Value = encabezado

for i = 1 to 20
XLSheet.Cells(i+6,2).Value = salidaexcel(i,1)
XLSheet.Cells(i+6,3).Value = salidaexcel(i,2)
XLSheet.Cells(i+6,4).Value = salidaexcel(i,3)
XLSheet.Cells(i+6,9).value = salidaexcel(i,5)
do case
case salidaexcel(i,4) = 4
XLSheet.Cells(i+6,5).interior.colorindex = 3
rojos = rojos + 1
case salidaexcel(i,4) = 5
XLSheet.Cells(i+6,6).interior.colorindex = 6
amarillos = amarillos + 1
case salidaexcel(i,4) = 6
XLSheet.Cells(i+6,7).interior.colorindex = 10
verdes = verdes + 1
case salidaexcel(i,4) = 7
XLSheet.Cells(i+6,8).interior.colorindex = 5
azules = azules + 1
endcase

&& se cambian algunas opciones de
*!* XLSheet.Cells(i+2,1).interior.colorindex = 39 && se cambian algunas opciones de
*!* XLSheet.Cells(i+2,2).font.bold = .t. && formatos para digtinguir el total de
*!* XLSheet.Cells(i+2,j).font.color = 1 && rubro
*!* XLSheet.Cells(i+2,j).borders(4).weight = 3
*!* XLSheet.Cells(i+2,j).Value = planilla(i,j)
endfor
XLSheet.Cells(28,5).value = rojos
XLSheet.Cells(28,6).value = amarillos
XLSheet.Cells(28,7).value = verdes
XLSheet.Cells(28,8).value = azules

*!* XLSheet.Cells(1,1).Value = 'Rentabilidad de Unidades de Negocio - consultado entre ' ;
*!* + dtoc(thisform.fecha1.fecha) + ' y ' + dtoc(thisform.fecha2.fecha)
*!* XLSheet.Cells(1,1).shrinktofit = .t.
keyboard('ENTER')
messagebox('Recuerde NO guardar los cambios de la planilla de excel, haga clic en Aceptar para verla',64,'Información')
endwith
XLApp.Visible = .t.

este código saca datos de una matriz generada en otro procedimiento, pero sirve. si tenés mas dudas escrubime a pj_rodriguez@hotmail.com