RE:Base de datos excel a vfp
EJEMPLO DE CARGAR DATOS DESDE EXCEL
*********************
oExcel = createObject('Excel.Application')
oWorkbooks = oExcel.Workbooks.open(archivo de excel)
Son = oWorkbooks.ActiveSheet.UsedRange.Rows.Count
Son1 = oWorkbooks.ActiveSheet.UsedRange.Columns.Count
if son > 1
With oWorkbooks.ActiveSheet
&& FILA = FILAS DE EXCEL
&& COLUMNA = COLUMNAS DE EXCEL
For FILA = 2 to son
VALOR_DE_LA_CELDA = .cells(FILA,columna).value
SELE <NOMBRE DE LA TBLA>
APPEND BLANK
REPLACE CAMPODETABLA WITH VALOR_DE_LA_CELDA
Endfor
Endwith
ENDIF
*********************
ESPERO TE SIRVA