Exportar datos de Excel a Tabla DBF

Te daré la pista de una de las alternativas para lograr lo que necesitas..

cArchivo = Getfile("XLS")
If Empty(cArchivo)
    Return
Endif
oExcel=Createobject("Excel.Application")
oExcel.Workbooks.Open(cArchivo)
oExcel.Visible       = .T.
oExcel.DisplayAlerts = .T.
cLineas = oExcel.ActiveCell.SpecialCells(11).Address()
nLineas = Val(Substr(cLineas,Rat("$",cLineas)+1))
For nX=5 To nLineas
    oExcel.Range("G"+Transform(nX)).Select
    nMes = Val(oExcel.ActiveCell.Formula)
    ** Código, nombrepaciente, edad, sexo, mes atención, medicamentos
    if nMes=9
        oExcel.Range("A"+Transform(nX)).Select
        cCodigo   = oExcel.ActiveCell.Formula
        oExcel.Range("B"+Transform(nX)).Select
        cPaciente = oExcel.ActiveCell.Formula
        oExcel.Range("C"+Transform(nX)).Select
        nEdad     = Val(oExcel.ActiveCell.Formula)
        oExcel.Range("D"+Transform(nX)).Select
        cSexo     = oExcel.ActiveCell.Formula
        oExcel.Range("E"+Transform(nX)).Select
        cMedic    = oExcel.ActiveCell.Formula
    endif
Next

Explicación: Primero seleccionas el Excel, activas la aplicación que abrirá o no (simplemente si no quieres que se haga visible la hoja Excel, solo quitas la línea "oExcel.Visible = .T."); luego comienza a leer línea a línea hasta hallar el final.

En el bucle FOR NEXT parte de la Fila 5 que mencionas es donde está el mes, toma el valor del Rango Gn y verifica que sea el més 9, si es correcto leerá todas las columnas An a En y lo cargará en variables cCodigo, cPaciente, nEdad, cSexo y cMedic (Considera que todo lo que obtenga del Excel lo tomará como carácter, así que si lo quieres de otro tipo de variables debes convertirlo).

Si no funciona es que tu Excel tiene un formato diferente al que me imagino, si es así hazme una copia de algunas líneas para darte mejores detalles. Éxitos!.

Gracias SysGen, probare y luego te comento

Saludos SysGen

Gracias por tu Colaboracion.

Tengo dos Problemillas con la Rutina que me enviaste

Antes que nada e creado una tabla llamada prueba con los datos de excel, esto para probar la funcionalidad de la rutina.

pero me tope con dos cosas:

1. la rutina si funciona, pero me jala los otros meses y no solo el mes nueve(Numero del mes Actual).

2. Lo otro es que me copia varias veses un mismo paciente en la tabla

te envio unas imagenes de las datos en excel y los datos de la tabla

tambien pongo el codigo por si acaso hay algo que no estoy haciendo bien.

saludos y espero tu respuesta

https://drive.google.com/open?id=0BwIsZTkuQ0H4UGxya3E4LU4wYmRWVnNiUGYyN0pFTk1KekFv Imagen de Tabla

https://drive.google.com/open?id=0BwIsZTkuQ0H4MThnMk9vUUJpMUtaMGsyeFpmRWR2cWtzWjZN  Imagen de Excel

Codigo

If Empty(cArchivo)
Return
Endif
oExcel=Createobject("Excel.Application")
oExcel.Workbooks.Open(cArchivo)
oExcel.Visible = .T.
oExcel.DisplayAlerts = .T.
cLineas = oExcel.ActiveCell.SpecialCells(11).Address()
nLineas = Val(Substr(cLineas,Rat("$",cLineas)+1))
For nX=2 To nLineas
oExcel.Range("G"+Transform(nX)).Select
nMes = Val(oExcel.ActiveCell.Formula)
** Código, nombrepaciente, edad, sexo, mes atención, medicamentos
if nMes=9
oExcel.Range("A"+Transform(nX)).Select
cCodigo = oExcel.ActiveCell.Formula
oExcel.Range("B"+Transform(nX)).Select
cPaciente = oExcel.ActiveCell.Formula
oExcel.Range("C"+Transform(nX)).Select
nEdad = Val(oExcel.ActiveCell.Formula)
oExcel.Range("D"+Transform(nX)).Select
cSexo = oExcel.ActiveCell.Formula
oExcel.Range("E"+Transform(nX)).Select
cMedic = oExcel.ActiveCell.Formula
oExcel.Range("F"+Transform(nX)).Select
nCanti = VAL(oExcel.ActiveCell.Formula)
oExcel.Range("G"+Transform(nX)).Select
nMes = VAL(oExcel.ActiveCell.Formula)
ENDIF
IF !USED("Prueba")
USE Prueba IN 0 EXCLUSIVE
ENDIF
SELECT Prueba
APPEND BLANK
replace codigo WITH VAL(cCodigo)
replace nom_paciente WITH cPaciente
replace edad WITH nEdad
replace Sexo WITH cSexo
replace Medicamento WITH cMedic
replace cantidad WITH nMes
NEXT

WAIT windows "Registros Almacenados" TIMEOUT .5
thisform.Release()

SELECT Prueba
BROWSE NORMAL

Prueba con éste código

cArchivo = Getfile("XLS")
If Empty(cArchivo)
    Return
Endif
oExcel=Createobject("Excel.Application")
oExcel.Workbooks.Open(cArchivo)
oExcel.Visible = .T.
oExcel.DisplayAlerts = .T.
cLineas = oExcel.ActiveCell.SpecialCells(11).Address()
nLineas = Val(Substr(cLineas,Rat("$",cLineas)+1))
For nX=2 To nLineas
    oExcel.Range("G"+Transform(nX)).Select
    nMes = Val(oExcel.ActiveCell.Formula)
    ** Código, nombrepaciente, edad, sexo, mes atención, medicamentos
    If nMes=9
        oExcel.Range("A"+Transform(nX)).Select
        nCodigo = Val(oExcel.ActiveCell.Formula)
        oExcel.Range("B"+Transform(nX)).Select
        cPaciente = oExcel.ActiveCell.Formula
        oExcel.Range("C"+Transform(nX)).Select
        nEdad = Val(oExcel.ActiveCell.Formula)
        oExcel.Range("D"+Transform(nX)).Select
        cSexo = oExcel.ActiveCell.Formula
        oExcel.Range("E"+Transform(nX)).Select
        cMedic = oExcel.ActiveCell.Formula
        oExcel.Range("F"+Transform(nX)).Select
        nCanti = Val(oExcel.ActiveCell.Formula)
        oExcel.Range("G"+Transform(nX)).Select
        nMes = Val(oExcel.ActiveCell.Formula)
        If !Used("Prueba")
            Use Prueba In 0 Exclusive
        Endif
        Select Prueba
        Append Blank
        Replace Codigo       With nCodigo
        Replace nom_paciente With cPaciente
        Replace edad         With nEdad
        Replace sexo         With cSexo
        Replace Medicamento  With cMedic
        Replace Cantidad     With nMes
    Endif
Next
Wait Windows "Registros Almacenados" Timeout .5
Thisform. Release()
Select Prueba
Browse Normal

Saludos mi estimado amigo, gracias infinita por tu valioso tiempo.

E resuelto el problema gracias a ti, solo que el objeto excel aun queda abierto

En que parte debo de cerrarlo para que no interrumpir la carga de los archivos

Gracias nuevamente