Sergio:
Si el archivo de excel no es demasiado grande (por la velocidad del proceso), puede adaptar esta rutina que através de la automatización se puede abrir, leer y/o modificar un archivo de excel.
Cualquier cosa me cuenta.
Me_Quiero_Morir
****************************************************************************
local loExcel, lcArchivo, lnFila
lcArchivo = "D:\VFP\Programas\Ejemplo.xls"
loExcel = Createobject("Excel.Application")
loExcel.workbooks.Open(lcArchivo)
loExcel.visible = .T.
*En la tabla debe existir un campo memo en el cual se almacenaran los datos
*de 500 caracteres
Use ejemplo
lnfila = 1
Do While loExcel.cells(lnFila,1).Value != 'fin'
Insert Into Ejemplo (ejemplo) Values (loExcel.cells(lnFila,2).Value)
lnFila = lnFila + 1
EndDo
loExcel.Visible = .F.
Release loExcel
Use
****************************************************************************
Fabián Rodríguez
Analista Plataforma Unificada de AFP
BBVA Horizonte Pensiones y Cesantías
Bogotá D.C. - Colombia