Page 1 of 1
Abrir hoja Excel con password
Posted: Fri May 22, 2009 10:56 pm
by Kleyber
Hola,
Estoy intentando abrir una hoja Excel y que tiene una password, pero me da un error. Estoy haciendo asi:
Code: Select all
oExcel := TOleAuto():New( "Excel.Application" )
if Ole2TxtError() # "S_OK"
MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+"Impossível gerar planilha","ATENÇÃO")
return nil
endif
oExcel:Workbooks:Open( cDirXLS+cArquivoX, , , ,"1111" )
Que hago mal?
Gracias,
Re: Abrir hoja Excel con password
Posted: Sat May 23, 2009 12:01 am
by Kleyber
Mirando la sintaxis del comando tengo:
Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, ;
IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU)
Entonces debria funcionar... Algun tip sobre esto?
Saludos,
Re: Abrir hoja Excel con password
Posted: Sat May 23, 2009 7:25 pm
by Ricardo Ramirez E.
Kleyber.. no será que deveras tambien, indicar el password para el parametro WriteResPassword ?
Re: Abrir hoja Excel con password
Posted: Sun May 24, 2009 1:25 am
by Kleyber
Ricardo,
Ya lo he solucionado. La verdad es que faltaba una función de Ole. La puse y ahora funcionó perfectamente.
Gracias y Saludos,
Re: Abrir hoja Excel con password
Posted: Sun May 24, 2009 12:15 pm
by Dioni
Hola Kleyber, Podrias compartir tu solucion con un ejemplo ?
podrias ayudarnos para los que empesamos recien en el tema. Gracias de antemano.
Saludos Dionicio...
Re: Abrir hoja Excel con password
Posted: Sun May 24, 2009 2:17 pm
by Kleyber
Hola Dionicio,
Lo que pasa es que uso una versión antigua de xHarbour (1.1.0) y la versión 8.02 de FWH. En la clase TOleauto no existia la función OleDefaultArg() que se debe usar el en OPEN, asi:
oExcel:Workbooks:Open( cDirXLS+cArquivoX,OleDefaultArg() ,OleDefaultArg() ,OleDefaultArg() ,"1111" )
Lo que hice fue coger una versión reciente de Win32Ole.prg, puse en mi proyecto y asi funcionó perfectamente.
Saludos,