HARBOUR (DOS Error -2147352567) WINOLE/1007 (SOLUCIONADO)

[MarioG]

Estimados
He buscado en el foro y encuentro bastante respecto de este error para con Harbour, pero no encontré algun post que responda a mi problema
El error ocurre al intentar leer de una hoja Excel

Descripción de Error generado:
___________________________________________________

(DOS Error -2147352559) WINOLE/1007 Argument error: VISIBLE
Args:
[ 1] = L .F.

Cual es el problema?, como lo soluciono?
(demas está decir que es un codigo que funciona con xHarbour)
gracias

[Antonio Linares]

Como usas la propiedad "visible" desde tu PRG ?

[MarioG]

Buen dia (por aca) Antonio
Este es el codigo:

Code: Select all  Expand view

METHOD DoItImportar( aO )   CLASS TFWSRut
local oExcel:= CreateObject( "Excel.Application" ), ;
      oWorkbook, ;
      oHoja, ;
      oQry...
     

   oExcel:DisplayAlerts:= FALSE
   oExcel:Visible( FALSE )
   oWorkbook:= oExcel:Workbooks:Open( hS3:cArchXLS )   // PATH correcto - hS3 es una var hash
   if !Empty( hS3:cPestania )
      TRY
         oWorkbook:Sheets( hS3:cPestania ):Select()
      CATCH
         MsgStop( "La pestaña "+ hS3:cPestania+" no existe, verifique!"+CRLF+ ;
                  "- Escribala tal como la ve (mayúsculas/minúsculas)"+CRLF+ ;
                  "- Verifique los espacio entre palabras"+CRLF+ ;
                  "- Verifique espacios antes y/o despues de las palabras", "Alerta" )
         oExcel:Quit()
         return( nil )
      END
   end
 

[hmpaquito]

Intenta con

Code: Select all  Expand view

oExcel:Visible:= .f.

[MarioG]

hmpaquito, gracias
es como decís, aunque ahora el error se produce en la línea siguiente, que es donde abre el archivo

Code: Select all  Expand view

oWorkbook:= oExcel:Workbooks:Open( hS3:cArchXLS )

Descripción de Error generado:
___________________________________________________

(DOS Error -2147352567) WINOLE/1007 No se encontró "D:\Nube\OneDrive\mgAppUtil\Leloir\N=mina de Alumnos, padres y tutores 2015-16 para base de datos.xlsx". Compruebe la ortografía del nombre del archivo y si su ubicación es correcta.

Si intenta abrir el archivo desde la lista de los usados recientemente, asegúrese de que no se ha cambiado el nombre del archivo, ni se ha eliminado o movido. (0x800A03EC): Microsoft Excel
Args:
[ 1] = C D:\Nube\OneDrive\mgAppUtil\Leloir\Nómina de Alumnos, padres y tutores 2015-16 para base de datos.xlsx

[nnicanor]

Hola,

Al parecer tienes un problema con los acentos o caracteres especiales del idioma, asegurate de usar el idioma correcto para que el sistema operativo pueda tomar los acentos correctamente en los nombres de archivo.

Code: Select all  Expand view

#include "fivewin.ch"
...
REQUEST HB_CODEPAGE_ESWIN

Function Main(...)

...
..

SET( _SET_CODEPAGE, "ESWIN" )

...
...

 

[MarioG]

Nicanor;
muchas gracias
No lo tenía incluido. Por lo que se ve xHarbour realiza el control de otra forma, ya que al compilarlo con él, no se queja

saludos

[jnavas]

Saludos
Estoy utilizando la libreria CHILKAT.DLL y genera la incidencia : (DOS Error -2147352572) WINOLE/1007 Argument error: SETPROPERTY

oEmail:Visible:= .f.
oEmail:SetProperty( "from", "<adaptaprodrive@gmail.com>")


Time from start: 0 hours 0 mins 0 secs
Error occurred at: 10/31/20, 13:34:44
Error description: (DOS Error -2147352572) WINOLE/1007 Argument error: SETPROPERTY