Uso de excel en fox 8

12/10/2005 - 17:34 por Miriam Alfaro | Informe spam

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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida