Abrir hoja Excel con password

[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,

[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,

[Ricardo Ramirez E.]

Kleyber.. no será que deveras tambien, indicar el password para el parametro WriteResPassword ?

[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,

[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...

[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,