FoxPro/Visual FoxPro - Asignar valor de una celda en excel a variable en foxpro

 
Vista:
Imágen de perfil de Yogui

Asignar valor de una celda en excel a variable en foxpro

Publicado por Yogui (79 intervenciones) el 10/06/2014 17:48:20
Holaaaa, vengo de nuevo con otra consulta, ¿cómo haría para colocar en valor de un campo que tengo en excel a una variable en foxpro?

Por ejemplo, este es mi código.

1
2
3
4
5
6
7
8
9
10
11
12
n=loExcel.ActiveSheet.UsedRange.Rows.Count &&Cuenta cuantos registros hay
 
m=n+10  &&Como n es el limite de mis registros, quiero grabarlo en un lugar que no modifique nada
m2=alltrim(str(m))&&convierte n a un valor char o cadena para usarlo abajo
 
loExcel.application.range("A"+m2+":A"+m2).value='=COUNTIFS(L2:L'+m2+',"<42")+2'
					&&Coloco la fórmula para contar la cantidad d registros que tengo que sean menores  que 42
					&&Ahora quiero capturar el valor de esa celda
 
					Ya probé con estas lineas
p=loExcel.application.range("A"+m2+":A"+m2).value
p=loExcel.cells(m,1)

Espero puedan ayudarme :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Asignar valor de una celda en excel a variable en foxpro

Publicado por Fidel José (558 intervenciones) el 11/06/2014 02:32:58
Yogui:
Te adjunto una librería en la que puedes ver una forma de leer valores en una hoja de Excel.
En la librería se atacan también algunos problemas comunes. Podrás ver que las referencias a celdas de Excel se tratan como Cells( lnRow , lnColumn ), en lugar de utilizar el método excel "A12".

Si agregas esta librerá a algún proyecto y tienes el proyecto activo, puedes ejecutarla desde la ventana de comandos con.
obj=NEWOBJECT("gmsExcel","getexter")
* Alternativa (sin agregar la librería)
* Si getexter.vcx está en "C:\TEMP"
* lcRoot="C:\TEMP"
* obj=NewObject("gmsExcel",addbs(lcRoot)+"getExter.vcx")

obj.opensheet() && ejecuta el procedure principal.
obj=null && cerrar la librería

En el zip adjunto, va la versión getexter.vc2 que es la que se obtiene con FoxBin2prg de Fernando D. Bozzo.
La puedes ver con cualquier editor de texto y ahí podrás ver el armado de la clase.
http://fdbozzo.blogspot.com.es/2014/01/foxbin2prg-el-sucesor-mejorado-del.html
Te recomiendo la página de Fernando y sobre todo Foxbin2prg, aunque no uses control de código.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Yogui

Asignar valor de una celda en excel a variable en foxpro

Publicado por Yogui (79 intervenciones) el 11/06/2014 16:36:13
¡Hola Fidel!
Siempre tú apoyándome :)
Gracias, lo probaré y luego te comento~
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar