topic-15113

Board index FiveWin para Harbour/xHarbour hola a todos los integrantes del foro

Posts: 115

Joined: Sat Mar 07, 2009 09:36 PM

hola a todos los integrantes del foro
Posted: Wed Apr 01, 2009 05:50 PM

tengo un sistema que usa las queridas bases de datos dbf y necesito pasar datos desde excel datos a las dbf , si alguien resolvio este pequeño problemita y cree que meresco ser ayudado agradeceria cualquier informacion.

desde ya muchas gracias

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: hola a todos los integrantes del foro
Posted: Wed Apr 01, 2009 08:56 PM

Hola amigo...
Con el mismo Excel puedes crear una DBF.
Toma el archivo XLS y al guardalo como DBF 3 (dBASEIII)... Tambien el Access te permite hacer sin problemas la migración de XLS a DBF.

Espero te sirva alguna de estas dos alternativas!

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: hola a todos los integrantes del foro
Posted: Wed Apr 01, 2009 10:19 PM

juan carlos bellucci wrote:tengo un sistema que usa las queridas bases de datos dbf y necesito pasar datos desde excel datos a las dbf , si alguien resolvio este pequeño problemita y cree que meresco ser ayudado agradeceria cualquier informacion.

desde ya muchas gracias

En su día esto me funcionó:

Code (fw): Select all Collapse

    oExcel := CreateOLEObject("Excel.Application")
    OLESetProperty(oExcel,"Visible", .T.)
    OLEInvoke( OLEGetProperty(oExcel,"Workbooks"), "Open", elfichero.xls )
    oHoja := OLEGetProperty(oExcel,"ActiveSheet")
    cCCC      := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, ncol ), "Value" )
    If Valtype( cCCC) = "U"
        cCCC := "00000000000000000000"
    EndIf
    cccc := Upper( cccc )
    MsgAlert( "Hola que tal soy el " + cccc + " guardame donde quieras!", "Atención!" )
    OLEInvoke( oExcel, "Quit" )

Un Saludo
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion