Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Uso de excel en fox 8

12/10/2005 - 17:34 por Miriam Alfaro | Informe spam
Ayuda Hacer una pregunta
Hola, quisiera ver quien me puede ayudar, ya que quiero hacer uso de excel
porque en este hare todos los calculos y el resultado lo jalare y lo
vizualizare en el fox, pero no se lamanera de: ejem:
tengo un datos ENERO en el fox y ese ENERO lo quiero buscar en en el excel
en una hoja1 en un rango de celdas (A1..A12)desde ENERO... DICIEMBRE, si
lo encuentro sacar el valor de ENERO en la celda B1 y ese arrojarlo a un
texto del fox.
Espero y haya quedado un poco claro y gracias a todos por sus
contribuciones.
Saludos

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Gorka
14/10/2005 - 11:40 | Informe spam
No se si es esto lo que pretendes:

LPARAMETERS lcMes
*.- recibo el Mes como parametro
LOCAL loExcel as Object, lnY as Integer, lcCelda as Character, lmValor
LOCAL lnResult
lnResult=0
*.- Instancio Excel
loExcel=CREATEOBJECT("excel.application")
*.- Abro el Libro
loExcel.workbooks.OPEN("C:\TuLibro.XLS",0)
*.- Selecciono la Hoja
loExcel.Sheets("Hoja1").Select

*.- recorro el rango de celdas
FOR lnY=1 TO 12
lcCelda='A'+ALLTRIM(STR(lny))
*.- Me ubico en la celda
loExcel.range(lcCelda).select
*.- Cogo el valor
lmValor=NVL(loExcel.ActiveCell.Value,'')
IF lmValor==lcMes
*.- Es el mes
lcCelda='B'+ALLTRIM(STR(lny))
*.- Me situo en la misma fila pero en la columna B
loExcel.range(lcCelda).select
*.- Cogo el valor de esa celda
lmValor=NVL(loExcel.ActiveCell.Value,'')
IF !EMPTY(lmValor)
lnResult=lmValor
EXIT
ENDIF
ENDIF
ENDFOR
loExcel.DisplayAlerts=.f.
loExcel.QUIT
loExcel=.f.
RETURN lnResult

Saludos
Gorka

Preguntas similares

 

Busqueda sugerida :