#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