IMPORTAR REGISTROS EXCEL EN VFP.

IMPORTACION DE REGISTROS DE UN ARCHIVO DE EXCEL(.CSV) A UNA TABLA EN VISUAL FOX PRO 9.0.

EL CODIGO ES EL SIGUIENTE:
EN EL BOTON PROCESAR NOTAS.

colW = 12

NumDocW = SPACE(15)

ApeW = SPACE(20)

NomW=SPACE(20)

NotaW=SPACE(15)

Comp1W=SPACE(2)

Comp2W=SPACE(2)

Comp3W=SPACE(2)

Comp4W=SPACE(2)

Comp5W=SPACE(2)

FaltaConJusW=SPACE(5)

FaltaSinJusW=SPACE(5)

DesempenoW=SPACE(10)

USE notas EXCLUSIVE

SELECT notas

APPEND FROM &fILEW DELIMITED WITH CHARACTER ';'

REPLACE ALL Nie WITH Nie

GO TOP

DO   WHILE colW < 12

     IF   SUBSTR(NumDocW,colW,1) = ' '

          colW = colW - 1

          REPLACE nie WITH SUBSTR(NumDocW,1,colW+1)

          REPLACE apellidos    WITH (SUBSTR(NomW,colw+2,12))

          replace nombres WITH SUBSTR(ApeW,colw+3,12)

          replace nota WITH SUBSTR(NotaW,colw+4,12)

          replace comp1 WITH SUBSTR(Comp1W,colw+5,12)

          replace comp2 WITH SUBSTR(Comp2W,colw+6,12)

          replace comp3 WITH SUBSTR(Comp3W,colw+7,12)

          replace comp4 WITH SUBSTR(Comp4W,colw+8,12)

          replace comp5 WITH SUBSTR(Comp5W,colw+9,12)

          replace faltaconjus WITH SUBSTR(FaltaConJusW,colw+10,12)

          replace faltasinjus WITH SUBSTR(FaltaSinJusW,colw+11,12)

          replace desempeno WITH SUBSTR(DesempenoW,colw+12,12)

colW = 12

          IF   EOF()

                EXIT

          ELSE

                SKIP

          ENDIF

         

     ELSE

          colW = colW + 1

     ENDIF

ENDDO

IF MESSAGEBOX("Datos Importados con exito!!!, desea salir?",4+64,"CLIC")=6

thisform.Release

ENDIF

thisform.grid1.RecordSource="notas"

thisform.grid1.Refresh