Error toleauto

[pedroluis]

* Estoy usando fwh17.09, windows 10 64 bits y Office 2016
* y tengo el siguiente problema:

cFile := cGetFile( "Archivo (xls,xlsx)|*.xls;*.xlsx|",;
"Seleccione Archivo (xls/xlsx)", 4 )
if !file(cFile)
clos data
return
endif
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .T. // Muestra en pantalla la planilla Excel
oBook := oExcel:Workbooks:Open( cFile )
oHoja := oExcel:Get( "ActiveSheet" )
nTotRowCount := oHoja:UsedRange:Rows:Count()

* y me da el error:
Error description: Error toleauto/65535
TOLEAUTO:NEW
Called from: => THROW(0)
Called from: source/rtl/win32ole.prg => Toleauto:New(0)

Lo que no entiendo es que hace un par de días me funcionaba perfectamente
y ahora empezó a largar éste error.
No he instalado ningún programa nuevo .
???

Gracias !

[paquitohm]

https://forums.fivetechsupport.com/view ... 16#p254861

[pedroluis]

Gracias por contestar !

Pero resulta que luego quise hacer un reporte normal de otro programa y quise exportarlo a Excel.
Me dice 'Excel no está instalado'
Seguidamente abrí una plenilla Excel fuera de Fivewin, es decir normalmente y el Excel abrió normalmente.
Pero me quedé con la duda y dije voy a reparar el Office.
Lo reparé corriendo de nuevo el setup.exe de su instalación, y luego sorpresa !!!
El programa que no me funcionaba con el Toleauto() funcionó de nuevo...
Cada vez entiendo menos lo que pasó...

Saludos y gracias !