topic-30981

Board index FiveWin para Harbour/xHarbour CERRAR LIBRO DE EXCEL SIN SALVAR

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

CERRAR LIBRO DE EXCEL SIN SALVAR
Posted: Sat Jun 27, 2015 01:04 AM

Estoy tratando con varios libros de EXCEL de la siguiente manera...

   oExcel := TOleAuto():New( "Excel.Application" ) // ACTIVANDO EXCEL
   oExcel:Visible := .t. // MOSTRAR O NO HOJA DE EXCEL
   oExcel:Workbooks:Open( cFileXls ) // ABRO EL ARCHIVO

asi abro varios libros para leer moviendome entre hojas de algunas columnas y alimentar otro libro de excel en diferentes columnas, hasta alli todo super bien. El detalle que tengo es que quiero despues de leer un libro, cerrarlo sin que me diga, no se porque motivo, que debo guardar los cambios si lo unico que hago es leer datos de las hojas, para cerralo hago lo siguiente:

Code (fw): Select all Collapse

// CERRANDO EXCEL
   oExcel:WorkBooks:Close()
   oExcel:Application:Quit()
   oExcel:Quit()
   oExcel := Nil

y cuando uso la siguiente linea para salvarlo y luego cerrarlo, me da error como si no conociera el methodo...

Code (fw): Select all Collapse

 oHoja:SaveAs( cFileXls )

lo que estoy por los momentos haciendo es abrir todos los libros y luego cerrarlos manualmente, pero el cliente no puede estar haciendo eso y ademas que al abrir gran cantidad de libros, se carga la RAM ya que hace apertura de excel por libro, las ayudas, sugerencias y comentarios sera bienvenidas, gracias, saludos...

Dios no está muerto...

Gracias a mi Dios ante todo!

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: CERRAR LIBRO DE EXCEL SIN SALVAR
Posted: Sat Jun 27, 2015 02:47 AM

José Luis:

Prueba a salvar y luego salir con...

Code (fw): Select all Collapse

    oExcel:Get("ActiveWorkBook"):SaveAs("Nombre del archivo" + ".Xlsx")
    oExcel:WorkBooks:Close()
    oExcel:Quit()

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: CERRAR LIBRO DE EXCEL SIN SALVAR
Posted: Sat Jun 27, 2015 02:55 AM

Armando wrote:José Luis:

Prueba a salvar y luego salir con...
Code (fw): Select all Collapse
    oExcel:Get("ActiveWorkBook"):SaveAs("Nombre del archivo" + ".Xlsx")
    oExcel:WorkBooks:Close()
    oExcel:Quit()
Saludos

Armando, gracias por tu respuesta, fue la solucion aunque le hice un pequeño cambios, no use SaveAs(), sino Save(), ya que el saveas(), es para salvarlo con otro nombre y no era la idea, asi que lo hice asi, gracias, saludos...

Code (fw): Select all Collapse

   oExcel:Get("ActiveWorkBook"):Save() //SALVA LIBRO ACTIVO
   oExcel:WorkBooks:Close() // CIERRA LIBRO ACTIVO
   oExcel:Quit() // CIERRA EXCEL

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion