topic-28556

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

HARBOUR 3.2 Y EXCEL 2013(SOLUCIONADO)
Posted: Mon Jun 02, 2014 02:44 PM

Estimado

He estado teniendo problemas con EXcel y harbour

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..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: HARBOUR 3.2 Y EXCEL 2013
Posted: Mon Jun 02, 2014 03:32 PM

Asi funciona Bien?

que cosas????

Code (fw): Select all Collapse

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)

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: HARBOUR 3.2 Y EXCEL 2013(SOLUCIONADO)
Posted: Mon Jun 02, 2014 04:26 PM

Patricio:

Por si te sirve de algo

Code (fw): Select all Collapse

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

Sobre todo para las celdas sin valor

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion