FoxPro/Visual FoxPro - pasar datos de hoja excel a una tabla del foxpro

como puedo hacer si tengo datos en una hoja excel y quiero pasarlo a una tabla del foxpro, y que cada vez que aumento datos en el excel se actualice las 2 tablas del foxpro, elo es por que tengo un registro de ventas en excel y para importar al programa contable CONCAR debe de estar con la extension DBF que son dos tablas para proceder a importar, te puedo dar la estructura de cada una de las tablas:
TABLA 1:
CSUBDIA, CCOMPRO,CFECCOM, CCODMON, CSITUA, CTIPCAM, CGLOSA, CTOTAL, CTIPO, CFLAG, CDATE, CHORA, CFECCAM CUSER CORIG CFORM CTIPCOM CEXTOR
TABLA 2:
DSUBDIA DCOMPRO DSECUE DFECCOM DCUENTA DCODANE DCENCOS DCODMON DDH DIMPORT DTIPDOC DNUMDOC DFECDOC DFECVEN DAREA DFLAG DDATE DXGLOSA DCODANE2 DUSIMPOR DMNIMPOR DCODARC
espero pronta respuesta
gracias
atte
Antonio

Hola Nestor:

No se si ya resolviste tu problema, pero esta fácil. Te voy a dar la idea y tu creas tu código ok.

Nota: Excel es mas bien una tabla, aunque tu no lo veas, tons lo que tienes que hacer es pasar de un lado a otro.

1) Crea tablas temporales donde lleves registrados tus traslados (TABLA1, crea una TABLA1TEMP)
me imagino que las ventas las controlas por fechas y lo que puedes hacer son cortes diarios, y bien cortes de fin de mes, para repasar si es que tienen cambios el excel durante el mes (y lo vuelves a exportar).

2) en tu codigo para traerlo de excel es asi..
supamos que tu archivo se llama c:\FILEEXCEL.XLS

USE Tabla1Temp
APPEND FROM c:\fileExcel.xls type xls

Cabe recordarte que tu archivo.dbf Tabla1Temp tienen que ir en el mismo orden que tu tienes tu excel para que los campos sean guardados, puedes pasarlos todos como carateres.

3) Una ves en tu Tabla1Temp ya todos tus datos como caracter lo pasas a tu archivo TABLA1

Pones tu control de fechas,
con un SCAN WHILE O CON DO WHILE no importa
vas pasando fila por fila y actulizando uno por uno.

ahora si eres un dominante de SQL Lo puedes pasar en bloque con un simple SELECT.

Bueno amigo espero ayudarte con esto, aunque se decirte que esos procesos no son 100% seguros puesto que Excel es realmente viola-ble.


4) Otra opcion también si gustas es hacer una ODBC y trabajar las hojas excel con recort Set

Saludos
Att

Sha

Hola Nestor yo aria lo siguiente y seria algo bien practico armaría mi excel con las estructura dada luego una vez ingresada los datos me voy a GUARDAR COMO y ahi selecciono GUARDAR COMO y le dos guardar como DBF y listo ya tienes tu excel en dbf. ... digamos eso es lo mas facil y practico ahora lo otro es hacer una tabla con esas estructura y hacer un PRG que inserte la información de tu Excel a la tabla, ai te envio un ejemplo de ello :



*** buscvo el archivo a importar ***
_archivo = Getfile("xls,xlsx","","Importar",0,"Importar Archivo")

If Empty(_archivo)
Return
ENDIF
*** creo un objeto ... para el caso un excel
ExcObj=Createobject("EXCEL.APPLICATION")
*** cargo el archvo seleccionado
ExcObj.WORKBOOKS.Open(_archivo)
*** comienso a hacer un barrido por todas la hojas que tenag el libro de excel
For x=1 To ExcObj.Sheets.Count
ExcObj.Sheets(x).Select
_fc=4 &&& indica la fila de lectura
Do While .T.
m.dato1=ExcObj.cells(_fc,1).Value
m.dato2=ExcObj.cells(_fc,2).Value
If Isnull(m.Nuf)
Exit
Endif
**********
insert into (tabla donde se insertan los datos) (campo1,campo2) values (m.dato1,m.dato2)
********* escribo en el excel a fin de saber que el registro fue insertado
ExcObj.cells(_fc,4).Value=cone.getmensaje()

_fc=_fc+1
enddo
ENDFOR
ExcObj.ActiveWorkbook.Save
ExcObj.WORKBOOKS.Close
Release ExcObj

tengo el mismo caso que Nestor, he tratado de convertir a dbf desde access y luego importarlos a concar pero me genera un error.
necesito una ayuda.

muchas gracias por el codigo aunque tiene algunos errores que tuve que corregir.

Lograste pasar tus ventas en excel al concar?? por favor envíame tu formato para pasarlo
[email protected]

un favor me envias la correccion

Excelente codigo. funcionó a la perfeccion. muchas gracias.

Con una sola línea de código

APPEND FROM "nombredearchivo.xls" xl5

Antes guarda tu archivo Excel en formato Libro de Microsoft Excel 5.0/95 (*.xls)

Bueno solo pasaba por aquí solo me queda decir "Capo"

Amigo Carlos, muy agradecido por tu aporte..Excelente rutina...Cordial Saludo.