Problemas con automatizacion Excel en Fox
Publicado por alex (3 intervenciones) el 25/08/2011 20:59:56
Buenas gente
Tengo el siguiente problema
Necesito leer un archivo Excel y pasarlo a una Tabla Cursor, pero con el siguiente problema.
Estoy aprendiendo a utilizar la automatizacion de Excel dentro del Fox 8.0
1) Necesito leer de excel y guardar en un cursor de Fox parte de una fila del Excel. Ej.: desde B5 hasta Z5
2) Leer una tabla cursor y actualizar el contenido de las celdas de un Excel. Ej.: desde C6 hasta Z6
3) Guardar en una tabla cursor de Fox parte de los datos de Excel Ej.: desde B1 hasta Z1000
4) Eliminar del Excel una Fila o varias Filas consecutivas
Lo que no se son los metodos y procedimientos de Excel y sus parametros. Llego hasta seleccionar el excel q me interesa y abrir el excel, pero no se como seguir, ya probe indicaciones de internet pero sin resultados. En el ejemplo mas abajo deje con puntos suspensivos donde tendria q resolver lo que necesito.
Si me pueden ayudar se los agradezco de antemano
*------------------------------------------------------------------------
cPath = GETDIR()
cFPth = cPath
cPath = cPath+'*.XLS'
IF 0=ADIR(lista,cPath+'*',"D")
MESSAGEBOX('Directorio Vacío',0,'')
return
ENDIF
=ASORT(lista)
cant_dir = ALEN(lista,1)
FOR i = 1 TO cant_dir
v_arch = cFPth + lista(i,1)
vs_exte = SUBSTR(cPath,LEN(cPath)-2,3)
loExcel = CREATEOBJECT("Excel.Application")
loExcel.Workbooks.Open(v_arch)
...
...
...
ENDFOR
Tengo el siguiente problema
Necesito leer un archivo Excel y pasarlo a una Tabla Cursor, pero con el siguiente problema.
Estoy aprendiendo a utilizar la automatizacion de Excel dentro del Fox 8.0
1) Necesito leer de excel y guardar en un cursor de Fox parte de una fila del Excel. Ej.: desde B5 hasta Z5
2) Leer una tabla cursor y actualizar el contenido de las celdas de un Excel. Ej.: desde C6 hasta Z6
3) Guardar en una tabla cursor de Fox parte de los datos de Excel Ej.: desde B1 hasta Z1000
4) Eliminar del Excel una Fila o varias Filas consecutivas
Lo que no se son los metodos y procedimientos de Excel y sus parametros. Llego hasta seleccionar el excel q me interesa y abrir el excel, pero no se como seguir, ya probe indicaciones de internet pero sin resultados. En el ejemplo mas abajo deje con puntos suspensivos donde tendria q resolver lo que necesito.
Si me pueden ayudar se los agradezco de antemano
*------------------------------------------------------------------------
cPath = GETDIR()
cFPth = cPath
cPath = cPath+'*.XLS'
IF 0=ADIR(lista,cPath+'*',"D")
MESSAGEBOX('Directorio Vacío',0,'')
return
ENDIF
=ASORT(lista)
cant_dir = ALEN(lista,1)
FOR i = 1 TO cant_dir
v_arch = cFPth + lista(i,1)
vs_exte = SUBSTR(cPath,LEN(cPath)-2,3)
loExcel = CREATEOBJECT("Excel.Application")
loExcel.Workbooks.Open(v_arch)
...
...
...
ENDFOR
Valora esta pregunta


0