Saludos al Forum
Tengo este codigo para generar a excl un DBF, pero al terminar no cierra el EXCEL.EXE que da en el Admon de Taresas
CREATEOBJECT( "Excel.Application" )
Uso xHarbour 1.2.1 Rev 9411 y Bcc582
Estoy compiland un viejo codigo de Clipper.
Si me genera el Archivo en Excel sin ningn problema el unico detalle es que no cierra el EXCEL.EXE
Tengo este codigo para generar a excl un DBF, pero al terminar no cierra el EXCEL.EXE que da en el Admon de Taresas
CREATEOBJECT( "Excel.Application" )
Uso xHarbour 1.2.1 Rev 9411 y Bcc582
Estoy compiland un viejo codigo de Clipper.
Si me genera el Archivo en Excel sin ningn problema el unico detalle es que no cierra el EXCEL.EXE
Static Function GenExcel(Obje)
Local cScr1,oExcel,oWorkBook,oSheet,oRange,i,cFileName:=DIR_TXLS+"REPORTE EXCEL"
cScr1 := saveScreen(0,0,24,80)
Try
setcolor(COLOR_GETS)
oExcel := CREATEOBJECT( "Excel.Application" )
OEXCEL:DISPLAYALERTS=.F.
oWorkBook := oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet
go top
i=1
// Columna Titulos
FOR nCnt := 1 TO Obje:colCount
column := Obje:getColumn( nCnt )
oSheet:Cells( i, nCnt ):Value := column:Heading
//oSheet:Columns( 3 ):ColumnWidth := 28
NEXT
i=2
// Main Heading
//oSheet:Cells(1,1):="My Heading"
// Creacion Datos
while !eof()
pxpbar_1(lastrec(),RECNO(),"xx" ) //PXP0021
FOR nCnt := 1 TO Obje:colCount
column := Obje:getColumn( nCnt )
oSheet:Cells(i, nCnt):Value := EVAL(column:block)
//oSheet:Cells(i,4):NumberFormat = "$#,##0.00"
NEXT
i++
skip +1
enddo
// Trying to Merge cells for the Main Heading
//oRange:=oSheet:Range("A1:D1") para centrar Main Heading
//oRange:MergeCells:= .T.
//oRange:HorizontalAlignment:= xlCenter
// Save the File
oWorkbook:SaveAs( cFileName )
oWorkBook:CLOSE( .F. ) //cierra el libro..
//oExcel:WorkBooks:Open( cFileName )
oExcel:Quit()
oExcel:=NIL
Memory(-1)
ALERT("Su Proceso Ha Terminado ",)
catch oError
alert("lo mas probable es que no este instalado el Excel"+oError:Operation,)
Throw( oError )
end
RestScreen(0, 0, 24, 80, cScr1)
Return NIL