Convertir datos de Excell a DBF

[arielonix-fibertel]

Hola a todos.:

                         Me surgió la necesidad en un cliente de que tiene la lista de precios en un formato excell y lo quiere trasladar al sistema que, obviamente, tiene las tablas en VFP 6.0.

Alguien tiene alguna idea de como encarar el problema ?.

 

Desde ya, muchas gracias y saludos

 

Ariel Sznaiderberg

 

[Marco Plaza]

Probaste guardar la hoja como excel 2003 y ejecutar import from < >
xls ?

Saludos

Marco Plaza


On Sep 16, 10:51 am, "arielonix-fibertel" <arielo...@fibertel.com.ar>
wrote:

[arielonix-fibertel]

Gracias por contestar.
El problema no es importarlo de esa manera, sino mediante un programa o algo
as�, cada vez que hayan modificado precios o costos que est�n en el excell,
ejecuten el programa y actualicen lo que corresponde.
Pero sin tener que el usuario hacer a mano ese trabajo. Mi hice entender ?

Ariel Sznaiderberg

-----Mensaje original-----
From: Marco Plaza
Sent: Friday, September 16, 2011 11:56 AM
To: Comunidad de Visual Foxpro en Espa�ol
Subject: [vfp] Re: Convertir datos de Excell a DBF

Probaste guardar la hoja como excel 2003 y ejecutar import from < >
xls ?

Saludos

Marco Plaza

On Sep 16, 10:51 am, "arielonix-fibertel" <arielo...@fibertel.com.ar>
wrote:
> Hola a todos.:

> Me surgi� la necesidad en un cliente de que tiene

[Martín Inga]

1. Hacer que excel exporte a formato DBF.

2. Foxpro puede importar datos de excel: IMPORT from nombre y ruta de archivo a importar from type xls

[Marco Plaza]

Hola usa entonces automatización de excel:
aqui hay un tuto de una página:

http://www.victorespina.com.ve/hs/es/index.php/Automatizaci%F3n_de_Excel_desde_VFP_%28VFP%29

Dato: cuando no sepas como hacer algo en excel ( ej selccionar un
rango, una celda o poner un formato ), simplemente graba una macro
( en excel claro ), y luego los pasos los puedes ver y copiar desde el
editor de macros de excel para vb. y pasarlos a vfp.

Saludos

Marco Plaza

[Luis Mata]

Usa esto:

 

arnuevo = getfile('xls,xlsx')

if arnuevo==''

    RETURN .f.

ELSE

nchar = LEN(arnuevo)

vaqui = 0

FOR e=1 TO nchar

    IF SUBSTR(arnuevo,e,1)=='\'

        vaqui = e

    endif

NEXT e

mileft = LEN(LEFT(arnuevo,vaqui))

milen = LEN(arnuevo)

mifilealt = SUBSTR(arnuevo,mileft+1,(milen-(mileft+1))-3)

*--abriendo el archivo xlsx

LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;

lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;

lcConnstr AS STRING

lcXLBook = arnuevo

mierrorx  = 0

    lcConnstr = [Driver=] + ;

        [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;

        [DBQ=] + lcXLBook

   

    IF !FILE( lcXLBook )

        MESSAGEBOX ([Archivo excel no encontrado],31,"Archivo no encontrado")

        RETURN .f.

    ENDIF       

    lnSQLHand = SQLSTRINGCONNECT( lcConnstr )

    IF lnSQLHand < 0

        MESSAGEBOX("Error de Conexión , Verifique.",48,"Error")

        RETURN .f.

    ENDIF

    lcSQLCmd = 'Select * FROM "'+mifilealt+'$"'

    lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )

    IF lnSuccess < 0

        SQLDISCONNECT( lnSQLHand )

        MESSAGEBOX("No se pudo importar el Archivo Verifique que el nombre del archivo sea igual al nombre de la hoja a importar.",48,"Erro al Intentar importar.")

        RETURN .f.

    ENDIF

    SQLDISCONNECT( lnSQLHand )

endif

SELECT xlResults

 

debes instalar http://www.microsoft.com/download/en/details.aspx?id=23734

para que funcione

 

---

	Mata Figueroa, Luis A. Procesos, Tecnología de la Información y telecomunicaciones TELF: (00 51 1) 617-4613 RPC : (00 51) 993597297 FAX : (00 51 1) 617-4601 lm...@cclf.com.pe www.cclf.com.pe