importar datos desde excel

softcomercial
11 de Enero del 2005
amigos buenas tardes tengo un problema, tengo un libro de excel con 3 hojas y deseo importar a una tabla de fox los datos de la hoja 1 2 y 3 tengo la siguiente instruccion pero no me funciona.

oExcel=createobje("excel.application")
oexcel.sheetsInNewWorkbook=1

oworkbook=oexcel.workbooks.open("c:VISITASABONOS")
AUX=1
SELEC ABONO1
HOJ=oworkbook.WORKSHEETS("HOJA1")&&ESTA ES LA SELECCION DE LA HOJA
FOR I=1 TO 65000
APPEN BLANK
REPLA ABONO1.TARJETA WITH HOJ.Cells(AUX,1)
REPLA ABONO1.NOMBRE WITH HOJ.Cells(AUX,2)
REPLA ABONO1.CEDULA WITH HOJ.Cells(AUX,3)
REPLA ABONO1.OFICINA WITH HOJ.Cells(AUX,4)
REPLA ABONO1.DOCUMENTO WITH HOJ.Cells(AUX,5)
REPLA ABONO1.TIPO WITH HOJ.Cells(AUX,6)
AUX=AUX+1
NEXT I
WAIT WIND "PROCESO OK" NOWAIT
DELE ALL FOR TARJETA=" "

es posible que alguien me ayude con este problema,

la respuesta me la pueden enviar al [email protected]


mil gracias


Petter
11 de Enero del 2005
el resultado de HOJ.Cells(AUX,1) es un objeto y por lo tanto lo que vas a grabar en la base de datos es el valor de dicho objeto, cambia la linea por

REPLA ABONO1.TARJETA WITH HOJ.Cells(AUX,1).Value

Las celdas que no tengan nada te va a aparecer como nulos, por lo que vas a tener que validar eso antes de dar el REPLACE

Espero que esto te sirva, .. suerte!