pequeño avance con texcels pero aun con problemas

[lafug]

Antes que nada Feliz 2006 para todos!!!
Antonio:

Baje la clase texcel corregida, ahora se compila sin problemas junto al resto de los programas, entonces estoy compilando los ejemplos que venían en el paquete enviado por vikthor, pero al ejecutar cualquiera de los ejemplos el sistema da errores, como el siguiente al ejecutar el TEST3.PRG:

Path and name: C:\sofnuth\SOFNUTR.Exe (32 bits)
Size: 1,357,824 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 02/01/2006, 13:42:15
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: WORKBOOKS
Args:

Stack Calls
===========
Called from: => WORKBOOKS(0)
Called from: => TEXCELSCRIPT:OPEN(288)
Called from: => TEST(17)
Called from: => (b)BUILDMENU(104)
Called from: => TMENU:COMMAND(0)
Called from: => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: => MAIN(55)
FWH 2.7 / BCC55
SALUDOS Y GRACIAS

[Antonio Linares]

Luis,

En el método New() prueba este cambio. En donde pone:

::oExcel := CreateOleObject( "Excel.Application" )

cámbialo a:

::oExcel := TOleAuto():New( "Excel.Application" )

[Vikthor]

METHOD NEW() CLASS TExcelScript
#IFDEF __XHARBOUR__
::lExcel := .T.
TRY
::oExcel := GetActiveObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
TRY
::oExcel := CreateObject( "Excel.Application" )
::oClip:=TClipBoard():New()
::oClip:Clear()
CATCH
Alert( "No está Excel Instalado en está Pc." )
::lExcel := .F.
END
END
#ELSE
::oExcel := TOleAuto( "Excel.Application" )
#ENDIF
::aExcelCols := {}
RETURN( Self )

[lafug]

Antonio al hacer el cambio me da el siguiente error

Error: Unresolved external '_HB_FUN_TOLEAUTO' referenced from C:\SOFNUTH\TEXCELS.OBJ

Al reemplazar el method new por el que que vikthor me envió da el mismo error

Que hay con el "#include "fileXLS.ch" que había que colocar al inicio del prg en Fw Clipper?

[Antonio Linares]

Luis,

Estás construyendo tu aplicación con Harbour. Prueba a construirla con xHarbour. Sólo tienes que cambiar el compilador y las librerías.

[lafug]

Antonio:

cual es la diferencia entre harbour y xharbour?
no me afecta la rc de recursos?
los cambios que efectuado en los prg para harbour, xharbour los reconoce de igual manera?



la clase de vikthor según recuerdo tu comentaste que era para xHarbour
saludos

[Antonio Linares]

Luis,

No hay ninguna diferencia que afecte a tu aplicación. La clase TOleAuto está implementada en xharbour y no en Harbour, por lo que si la necesitas entonces tienes que usar xharbour.

Los recursos son los mismos, los ficheros make, todo igual.

[lafug]

antonio:
compilé con xHarbour sin problemas, pero tengo mis dudas con el fichero "fileXLS.ch", ya que estoy ocupando el mismo que usaba con FWClipper debido a que el zip de la texcels que vikthor mando no esta este fichero.

al compilar la aplicación, esta se genera, pero aparece el mensaje:
fileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive.

[Antonio Linares]

Luis,

> fileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive.

Supongo que falta un #endif al final de ese fichero. Pero eso no es ningún problema.

[Vikthor]

El archivo filexls.ch no es necesario para utilizar la clase TExcelS.

[lafug]

alguien tendrá por ahi algun ejemplo práctico?
necesito generar una planilla excel con los titulos:

"codigo" "producto" "cantidad" "valor"

la sintaxis de la texcels para fwclipper no es la misma en esta para FWH

GRACIAS DE ANTEMANO
SALUDOS

[Vikthor]

Puedes encontrar varios ejemplos en http://vikthor.com.mx/download/excel