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.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
