Excel desde consola

[jrestojeda]

Hola a todos,
Estoy tratando de leer un archivo Excel desde consola de la siguiente manera:

Code: Select all  Expand view

Static Function ProbandoExcel()

cFile :="MIEXCEL.XLSX"

oExcel:=TOleAuto():New("Excel.Application")
oBook :=oExcel:Workbooks:Open(cFile)
oHoja :=oExcel:Get( "ActiveSheet" )

nTotRowCount:= oHoja:UsedRange:Rows:Count()

FOR Q=1 TO nTotRowCount

   ALERT( oHoja:Cells( Q, 1 ):Value )
   ALERT( oHoja:Cells( Q, 2 ):Value )
   ALERT( oHoja:Cells( Q, 3 ):Value )
   ALERT( oHoja:Cells( Q, 4 ):Value )

NEXT

oExcel:WorkBooks:Close()
oExcel:Application:Quit()
RELEASE oHoja
RELEASE oExcel

Return nil
 

Me da el siguiente error de compilación:

Code: Select all  Expand view

Unresolved external '_HB_FUN_TOLEAUTO'

¿Debería agregar alguna lib adicional al proyecto?

Desde ya muchas gracias.
Saludos

[Antonio Linares]

Estás enlazando hbwin.lib de Harbour ?

[jrestojeda]

Antonio,
Muchas gracias por su respuesta.
Ahí agregando la lib que me comentó compila sin problemas y genera el ejecutable, pero da el siguiente error en tiempo de ejecución.

Code: Select all  Expand view

ERROR DESCRIPTION
=================

Error en la aplicación: Y:\demo\DEMO.exe
Date: 18/07/24 Time: 12:46:34

(DOS Error -2147352570) WINOLE/1009  No exported method: GET
    TRIES: 0

Llamada desde: TOLEAUTO:GET........ Línea:      0
Llamada desde: PROBANDOEXCEL....... Línea:   2159
Llamada desde: MAIN................ Línea:     83

 

El código es el mismo que escribí inicialmente.
En FiveWin funciona normalmente.

[Antonio Linares]

Prueba a usar:

oHoja := oExcel:ActiveSheet

en vez de:

oHoja := oExcel:Get( "ActiveSheet" )

[jrestojeda]

Perfecto Antonio,
Funcionó.
Muchas gracias.