FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour C贸mo saber el formato de una celda de excel? SOLUCIONADO
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
C贸mo saber el formato de una celda de excel? SOLUCIONADO
Posted: Fri Aug 23, 2019 12:07 AM

Amigos del foro:

Necesito leer una hoja de Excel y hacer operaciones matem谩ticas entre
dos celdas, pero en ocasiones alguna de las celdas no tiene formato
num茅rico y el programa truena.

Como validar que ambas celdas tengan formato de numero?

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
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: C贸mo saber el formato de una celda de excel?
Posted: Fri Aug 23, 2019 01:47 PM
Hola Armando
Podrias consultar el tipo de datos que viene con la funcion VALTYPE
Code (fw): Select all Collapse
聽 聽 聽 vColumna1:=oHoja:Cells( 2, 1 ):Value
聽 聽 聽 vColumna2:=oHoja:Cells( 2, 2 ):Value
聽 聽 聽 IF VALTYPE(vcolumna1) <> "N" .or. VALTYPE(vColumna2) <> "N"
聽 聽 聽 聽 聽MsgInfo("Valores no numericos")
聽 聽 聽 聽 聽RETURN 0
聽 聽 聽 ENDIF
聽 聽 聽 RETURN vColumna1 * vColumna2
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo saber el formato de una celda de excel?
Posted: Fri Aug 23, 2019 02:47 PM

C茅sar:

Muchas gracias, voy a intentar por ah铆. Estaba intentando
con la funci贸n Cell de excel, pero no pude.

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
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo saber el formato de una celda de excel?
Posted: Fri Aug 23, 2019 05:50 PM

C茅sar:

Listo, con tu recomendaci贸n sal铆 del problema.

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
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: C贸mo saber el formato de una celda de excel? SOLUCIONADO
Posted: Fri Aug 23, 2019 06:40 PM

Me alegro mucho Armando!
Abrazo

Continue the discussion