EXCEL 2007 A DBF
Publicado por HUGO (207 intervenciones) el 07/10/2007 06:42:46
AMIGOS DE LA WEB TENGO UNA RUTINA QUE ME PASABA CORRECTAMENTE MIS DATOS.EXCEL A MI MI TABLA.DBF, PERO AHORA TENGO PROBLEMAS , CAMBIE AL OFFICE 2007 Y MI RUTINA YA NO FUNCIONA COMO ANTES, ALGUIEN PUDIERA EXPLICAR QUE ES LO QUE ESTA PASANDO..? GRACIAS
ESTE ES MI CODIGO :
LOCAL oExcel, lFilaDatos, iFila, iColumna, cFile
ifila=1
iColumna=1
FilaDatos=.T.
oExcel = CREATEOBJECT("Excel.Application")
cFile="c:\original.xls"
oExcel.workbooks.OPEN(cFile)
DO WHILE FilaDatos
SELEC t_comensales
IF VARTYPE(oExcel.Cells(ifila,1).VALUE) = .NULL. .AND. VARTYPE(oExcel.Cells(ifila,2).VALUE) = .NULL.
FilaDatos=.F.
oExcel.QUIT
ELSE
INSERT INTO t_comensales (codigo, nombre) VALUES (oExcel.Cells(ifila,1).VALUE,oExcel.Cells(ifila,2).VALUE)
ifila=ifila+1
ENDIF
ENDDO
oExcel.QUIT
ESTE ES MI CODIGO :
LOCAL oExcel, lFilaDatos, iFila, iColumna, cFile
ifila=1
iColumna=1
FilaDatos=.T.
oExcel = CREATEOBJECT("Excel.Application")
cFile="c:\original.xls"
oExcel.workbooks.OPEN(cFile)
DO WHILE FilaDatos
SELEC t_comensales
IF VARTYPE(oExcel.Cells(ifila,1).VALUE) = .NULL. .AND. VARTYPE(oExcel.Cells(ifila,2).VALUE) = .NULL.
FilaDatos=.F.
oExcel.QUIT
ELSE
INSERT INTO t_comensales (codigo, nombre) VALUES (oExcel.Cells(ifila,1).VALUE,oExcel.Cells(ifila,2).VALUE)
ifila=ifila+1
ENDIF
ENDDO
oExcel.QUIT
Valora esta pregunta


0