RE:salvar excel - Ya encontre la solucion
Disculmen los compañeros adjunto la solucion a mi consulta, es mas pongo un excel completo
*-EXCEL------------------------------------------------------------------------------
oexcel=createobject('excel.application')
oexcel.application.visible=.f.
oexcel.application.StandardFontSize=8
oexcel.application.StandardFont='Arial'
oexcel.application.workbooks.add()
Select _encabezado
Go top
Do while !Eof()
Select * from informe into cursor x order by archivo,cliente where archivo=_encabezado.archivo
* Wait 'Generando Archivo Excel' window nowait noclear
xreg=Reccount('x')
xcon=0
Select titulos_empresa
Go top
Scan
If At(Upper(Alltrim(titulos_empresa.texto1)),Upper(_encabezado.archivo),1)>0
If At(Upper(Alltrim(titulos_empresa.texto2)),Upper(_encabezado.archivo),1)>0
xtitulohoja=Alltrim(titulos_empresa.glosa1)+' '+Alltrim(titulos_empresa.glosasi)
Else
xtitulohoja=Alltrim(titulos_empresa.glosa1)+' '+Alltrim(titulos_empresa.glosano)
EndIf
EndIf
EndScan
oexcel.application.sheets.add
oexcel.application.sheets(1).name=xtitulohoja
oexcel.application.rows(1).font.size=10
oexcel.application.rows(1).font.bold=.t.
oexcel.application.rows(1).font.bold=.t.
oexcel.application.Range("a1").Select
If File(data_drive+"imageneslogo_banner.jpg")
lcImagen =data_drive+"imageneslogo_banner.jpg"
oexcel.ActiveSheet.pictures.Insert(lcImagen).select
EndIf
I=10
oexcel.application.cells(I,01).value=xtitulohoja
oexcel.application.cells(I,03).value='Generado el: '+Ttoc(dateTime())
I=I+2
oexcel.application.rows(I).font.bold=.t.
oexcel.application.rows(I).font.size=12
oexcel.application.cells(I,01).value='CUENTAS CORRIENTES' && AL MES DE FEBRERO DE 2008
oexcel.application.columns(01).numberformat='@'
oexcel.application.columns(02).numberformat='dd-mm-yyyy'
oexcel.application.columns(03).numberformat='dd-mm-yyyy'
oexcel.application.columns(04).numberformat='#,##;[Red](#,##);0'
I=I+2
oexcel.application.rows(I).font.bold=.t.
oExcel.application.columns(01).columnwidth=52.17
oexcel.application.cells(I,01).value='CLIENTES'
oExcel.application.columns(02).columnwidth=17
oexcel.application.cells(I,02).value='Primera Compra'
oExcel.application.columns(03).columnwidth=17
oexcel.application.cells(I,03).value='Ultima Compra'
oExcel.application.columns(04).columnwidth=17
oexcel.application.cells(I,04).value='Total Deuda'
oExcel.application.Range(oexcel.application.cells(I,2),oexcel.application.cells(I,4)).borders(3).weight=3 && arriba
oExcel.application.Range(oexcel.application.cells(I,1),oexcel.application.cells(I,4)).borders(4).weight=3 && abajo
oExcel.application.Range(oexcel.application.cells(I,2),oexcel.application.cells(I,4)).borders(1).weight=3 && izquierda
oExcel.application.Range(oexcel.application.cells(I,2),oexcel.application.cells(I,4)).borders(2).weight=3 && derecha
oexcel.application.range(oexcel.application.cells(I,2),oexcel.application.cells(I,4)).Interior.ColorIndex=15
Select x
I=I+1
Do While !Eof()
xcon=xcon+1
Wait 'Generando Archivo Excel Registro '+Alltrim(Str(xcon))+' de '+Alltrim(Str(xreg)) window nowait noclear
oExcel.application.Range(oexcel.application.cells(I,1),oexcel.application.cells(I,4)).borders(1).weight=3 && izq
oExcel.application.Range(oexcel.application.cells(I,1),oexcel.application.cells(I,4)).borders(2).weight=3 && der
oexcel.application.cells(I,01).value=x.cliente
If !Empty(x.primera)
oexcel.application.cells(I,02).value=x.primera
EndIf
If !Empty(x.ultima)
oexcel.application.cells(I,03).value=x.ultima
EndIf
oexcel.application.cells(I,04).value=x.total
I=I+1
Select x
Skip
Enddo
oExcel.application.Range(oexcel.application.cells(I,1),oexcel.application.cells(I,4)).borders(3).weight=3 &&arriba
I=I+2
oExcel.application.Range(oexcel.application.cells(I,4),oexcel.application.cells(I+1,4)).borders(3).weight=3 && arriba
oExcel.application.Range(oexcel.application.cells(I,4),oexcel.application.cells(I+1,4)).borders(4).weight=3 && abajo
oExcel.application.Range(oexcel.application.cells(I,4),oexcel.application.cells(I+1,4)).borders(1).weight=3 && izquierda
oExcel.application.Range(oexcel.application.cells(I,4),oexcel.application.cells(I+1,4)).borders(2).weight=3 && derecha
oexcel.application.range(oexcel.application.cells(I,4),oexcel.application.cells(I+1,4)).Interior.ColorIndex=20
Sum(total) to xtotalgral for archivo=_encabezado.archivo
oexcel.application.cells(I,4).font.bold=.t.
oexcel.application.cells(I,4).numberformat='#,##;[Red](#,##);0'
oexcel.application.cells(I,4).value=xtotalgral
I=I+1
Sum(total) to xtotalgral for archivo=_encabezado.archivo
oexcel.application.cells(I,3).value='Total Deuda Clientes'
oexcel.application.cells(I,4).font.bold=.t.
oexcel.application.cells(I,4).numberformat='#,##;[Red](#,##);0'
xlinea_empresa=0
Select linea_empresa
Go top
Scan
xsublinea_empresa=0
Select ctascorrientes1
Set Order To auxiliar
Seek linea_empresa.auxiliar
Do while !Eof()
If ctascorrientes1.auxiliar<>linea_empresa.auxiliar
Skip
Loop
EndIf
If ctascorrientes1.archivo<>_encabezado.archivo
Skip
Loop
EndIf
xsublinea_empresa=ctascorrientes1.stotal
Select ctascorrientes1
Skip
EndDo
xlinea_empresa=xlinea_empresa+xsublinea_empresa
EndScan
oexcel.application.cells(I,4).value=xtotalgral-xlinea_empresa
oexcel.application.Range("A15").Select
oexcel.application.ActiveWindow.FreezePanes =.t.
Select _encabezado
Skip
EndDo
oexcel.application.visible=.t.
Wait Clear
oexcel.application.ActiveWorkbook.SaveAs("C:INFORME")&& Guarda el libro.
oexcel.application.QUIT && Cierra Excel
*-EXCEL-FIN--------------------------------------------------------------------------