HARBOUR 3.2 Y EXCEL 2013(SOLUCIONADO)

[Patricio Avalos Aguirre]

Estimado

He estado teniendo problemas con EXcel y harbour

Code: Select all  Expand view

cArch := cGetFile32("Archivos Excel | *.XLS* |" , "Importar desde un archivo",1,,,.T. )
if empty(cArch)
    return
endif

if ( oExcel := CREATEOBJECT( "Excel.Application" ) ) = NIL
    MsgInfo( "No se pudo comunicar con EXCEL", "Usuario" )
    return
endif

oExcel:WorkBooks:Open(cArch )
oHoja := oExcel:ActiveSheet

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

for i := 2 to nRow
     if valtype(oHoja:Cells(i,1):Value) <> "U"
        codExcel := oHoja:Cells(i,1):Value
        IF VALTYPE( CODEXCEL ) <> "C"
            ALERT( CODEXCEL )
            ALERT( oHoja:Cells(i,1):Value )
        ENDIF
...
...
 

el problema esta en que la variable codexcel retorna un ARREGLO
y si coloco oHoja:Cells(i,1):Value returna un character

estare haciendo algo mal al invocar el Excel..

[Patricio Avalos Aguirre]

Asi funciona Bien?

que cosas????

Code: Select all  Expand view

for i := 2 to nRow

    codExcel := oHoja:Cells(i,1):Value

    if valtype(codexcel) = "C"
    //if valtype(oHoja:Cells(i,1):Value) <> "U"
        codExcel := strtran( codExcel, "*", "" )
        codExcel := PadR(Alltrim(codExcel ),15)

 

[Armando]

Patricio:

Por si te sirve de algo

Code: Select all  Expand view

IF oHoja:Cells(i,1):Value <> NIL
.....
.....
 

Sobre todo para las celdas sin valor

Saludos