In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

error en TOLE()

Foro público de Xailer en español
User avatar
XeviCOMAS
Posts: 524
Joined: Sat Mar 12, 2011 8:16 pm

error en TOLE()

Postby XeviCOMAS » Thu Sep 27, 2012 4:37 pm

Este código funciona correctamente en Windows XP...
TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
MsgAlert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )
oFile:Destroy()
::oBrowse1:SetFocus()
RETURN Nil
END
END
oExcel:Visible := .T.
oExcel:WorkBooks():Open( oFile:cFullFileName )
...
pero mi sorpresa a sido cuando lanzo la misma aplicación en Windows 7, 32 o 64 bits, y no resuelve el mandato Open(), se va al CATCH.
Algun ajuste a hacer en Win7???
Estoy utilizando la versión 2.1.5.
Un Saludo.
Xevi
Un Saludo,
Xevi.
User avatar
jfgimenez
Site Admin
Posts: 5620
Joined: Mon Apr 06, 2015 8:48 pm
Contact:

error en TOLE()

Postby jfgimenez » Thu Sep 27, 2012 7:36 pm

Xevi,
> Este código funciona correctamente en Windows XP...
>
> ...
>
> pero mi sorpresa a sido cuando lanzo la misma aplicación en
> Windows 7, 32 o 64 bits, y no resuelve el mandato Open(), se
> va al CATCH.
>
> Algun ajuste a hacer en Win7???
Lo acabo de probar con xHarbour y con Harbour, y funciona correctamente,
al menos con Win7 32 bits y Excel 2003.
> Estoy utilizando la versión 2.1.5.
Si no tienes una versión más nueva, intenta instalarte una demo de la
2.6 y pruébalo, por si hubiera habido algún problema en esa versión,
aunque dudo mucho que sea eso.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
User avatar
XeviCOMAS
Posts: 524
Joined: Sat Mar 12, 2011 8:16 pm

error en TOLE()

Postby XeviCOMAS » Thu Sep 27, 2012 10:19 pm

El problema debe estar en Office2010...
Intentaré instalar Office2003 para comprobarlo.
Gracias.
Un Saludo,
Xevi.
Un Saludo,
Xevi.
User avatar
XeviCOMAS
Posts: 524
Joined: Sat Mar 12, 2011 8:16 pm

error en TOLE()

Postby XeviCOMAS » Fri Nov 02, 2012 5:13 pm

Jose,
Por lo visto lo que me ocurria...
corria Excel en Visible a .f. para mandar unos datos a la hoja y rellenar
campos, para finalmente hacerla visible.
después de rellenarla, la salvaba :Save() y la mostrava Visible := .t.
Como usaba una plantilla hecha en Excel2003, al correrla en Excel2010, el
cambio de versión aparece una ventana de diálogo de advertencia de
compatibilidades.
La aplicación se quedava a la espera del diálogo, sin mostrarse, pues
todavia estava visible a .f..
Cambiando el orden, y primero hacer Visible := .t. y luego :Save()... todo
funciona correctamente.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenezAM]"@wanadoo.es> ha escrit al missatge
del grup de discussió: 50648e9a@svctag-j7w3v3j....
> Xevi,
>
>> Este código funciona correctamente en Windows XP...
>>
>> ...
>>
>> pero mi sorpresa a sido cuando lanzo la misma aplicación en
>> Windows 7, 32 o 64 bits, y no resuelve el mandato Open(), se
>> va al CATCH.
>>
>> Algun ajuste a hacer en Win7???
>
> Lo acabo de probar con xHarbour y con Harbour, y funciona correctamente,
> al menos con Win7 32 bits y Excel 2003.
>
>
>> Estoy utilizando la versión 2.1.5.
>
> Si no tienes una versión más nueva, intenta instalarte una demo de la 2.6
> y pruébalo, por si hubiera habido algún problema en esa versión, aunque
> dudo mucho que sea eso.
>
>
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
> __________ Informacin de ESET NOD32 Antivirus, versin de la base de firmas
> de virus 7645 (20121031) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7653 (20121102) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Un Saludo,
Xevi.

Return to “Spanish”