FiveTech Software tech support forums

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.

oBook:Close()

Mr. Rao taking advantage of the Post, how is it saved in CSV format Delimited by commas?

T

oBook:SaveAs( <name.csv>, 6 )

Thank you very much