Necesito ejemplo sencillo de importar datos de xls

[Ramón J.]

Hola a todos

Estoy curioseando por el foro sobre como importar datos a una dbf desde una hoja de cálculo de excel, pero de tanta información que hay -la mayoría es para sql- acabo saturado y confuso.

He preparado un tabla cuatro datos y una dbf vacía para saber cómo hay que hacerlo, en plan dummy

https://mega.nz/file/c1glxA4T#mQdoVQ9Po ... 38zeKWubwY

Un saludo y gracias

[alerchster]

Code: Select all  Expand view

#include "fivewin.ch"
REQUEST DBFCDX
REQUEST HB_CODEPAGE_DEWIN


function Main()
    local aStru:={}, cp, cfile, oSheet, aFiles, i
    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
    SET DATE GERMAN
    SET CENTURY ON
    SET DELETED ON
    RDDSETDEFAULT( "DBFCDX" )
    cp := HB_SETCODEPAGE( "DEWIN" )
                               
    aStru := { { "NOMBRE",       "C", 80, 0 },;
               { "LOCALIDAD",  "C", 100, 0 },;
               { "RESGUARDOS", "N", 10, 0 },;
               { "TOTAL",      "N", 15, 0 } }


    DBCREATE( "ejemplo", aStru, ;
              "DBFCDX", .T., "tmp" )

    afiles:=agetfiles("*.xlsx","open xlsx")

    for i:=1 to len(aFiles)
     oExcel:WorkBooks:Open(aFiles[i])
     oExcel:visible:=.T.
     oSheet:=oExcel:Activesheet

     inkey(1)
     lExcelImport()
     oExcel:Workbooks:Close()
    next
    XBROWSER

return nil

Function lExcelImport()
 
   FW_ExcelToDBF( GetExcelRange(), ;
                 { { [NOMBRE],[NOMBRE Y APELLIDOS] }, ;
                   { [LOCALIDAD],[LOCALIDAD] }, ;
                   { [RESGUARDOS],[RESGUARDOS] }, ;
                   { [TOTAL],[EUROS] } }, .T. )

return nil

[Ramón J.]

Gracias, Anton