Conversão de Xls em DBF
Enviado: 06 Jan 2019 21:54
Bom dia, pessoal
Achei o código abaixo aqui no fórum. Ele compila normal, mas na hora de executar da o erro da foto na função SaveAs().
Alguém sabe o que fazer ? Eu uso Hb32 console
Feliz 2019 a todos !
Achei o código abaixo aqui no fórum. Ele compila normal, mas na hora de executar da o erro da foto na função SaveAs().
Alguém sabe o que fazer ? Eu uso Hb32 console
Código: Selecionar todos
#define xlDbf3 8
*************
Function Main // (Arq1,Arq2)
*************************
setmode(25,80)
clea
Arq1="D:\mmv3\test1.xls" // "D:\mmv3\test1"
Arq2="D:\mmv3\TESTE9.dbf" //"D:\mmv3\TESTE9" ** esse Arquivo sera criado em tempo de execucao
XLS2DBF( Arq1, Arq2 )
return nil
**************************************
FUNCTION XLS2DBF( cXlsName, cDbfName )
**************************************
*
* Purpose: convert an Excel spreadsheet to a dBase III+ table
* but does not leave Excel open
*
LOCAL oExcel := Win_OleCreateObject( "Excel.Application" )
LOCAL oWorkBook, oSheet
oWorkbook = oExcel:WorkBooks:Open( cXlsName )
oSheet = oExcel:ActiveSheet
oSheet:SaveAs( cDbfName, xlDbf3 )
oWorkBook:Close( False )
oExcel:Quit()
oSheet := NIL
oWorkBook := NIL
oExcel := NIL
RETURN( NIL )