FiveTech Software tech support forums

Posted: **Wed Jul 17, 2024 7:18 pm**

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

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

Unresolved external '_HB_FUN_TOLEAUTO'

¿Debería agregar alguna lib adicional al proyecto?

Desde ya muchas gracias.
Saludos

Posted: **Wed Jul 17, 2024 8:37 pm**

Estás enlazando hbwin.lib de Harbour ?

Posted: **Thu Jul 18, 2024 3:53 pm**

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

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.

Posted: **Fri Jul 19, 2024 3:32 pm**

Prueba a usar:

oHoja := oExcel:ActiveSheet

en vez de:

oHoja := oExcel:Get( "ActiveSheet" )

Posted: **Fri Jul 19, 2024 5:58 pm**

Perfecto Antonio,
Funcionó.
Muchas gracias.

FiveTech Software tech support forums

Excel desde consola

Excel desde consola

Re: Excel desde consola

Re: Excel desde consola

Re: Excel desde consola

Re: Excel desde consola