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
#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 nilGracias, Anton