Forma de abrir y cerrar un xls???
Posted: Wed Nov 08, 2017 4:00 am
Saludos
Una duda de como abrir un archivo de excel y como cerrarlo
Tengo esto:
oExcel:=TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open('C:\tmp\agricola.xlsx')
oHoja := oExcel:Get( "ActiveSheet" )
... proceso
oExcel:Quit()
si lo habre, pero de alguna forma este que si cerrarse.
para crear uno:
oExcel:=TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Add()
oBook :=oExcel:Get("ActiveWorkBook")
oSheet:=oExcel:Get("ActiveSheet")
cTmpXls:=NombreTmp('XLS')
oBook:SaveAs(cTmpXls,xlWorkbookNormal) // xlWorkbookNormal = -4143
oExcel:Quit()
e igual no lo cierra.
sugerencia por fa.
Una duda de como abrir un archivo de excel y como cerrarlo
Tengo esto:
oExcel:=TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open('C:\tmp\agricola.xlsx')
oHoja := oExcel:Get( "ActiveSheet" )
... proceso
oExcel:Quit()
si lo habre, pero de alguna forma este que si cerrarse.
para crear uno:
oExcel:=TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Add()
oBook :=oExcel:Get("ActiveWorkBook")
oSheet:=oExcel:Get("ActiveSheet")
cTmpXls:=NombreTmp('XLS')
oBook:SaveAs(cTmpXls,xlWorkbookNormal) // xlWorkbookNormal = -4143
oExcel:Quit()
e igual no lo cierra.
sugerencia por fa.