Importar tabelas .DBF para arquivos .CSV e/ou .XLS rapido

[rochinha]

Amiguinhos,

Eis uma forma rápida de importação de tabelas .DBF para arquivos .CSV e/ou .XLS de forma rápida:

Código: Selecionar todos

oExcel := TOleAuto():New( "Excel.Application" )
oWorkbook := oExcel:WorkBooks
oWorkbook:Open( "c:\temp\tabela.DBF" )
oExcel:DisplayAlerts := .f.
oExcel:Visible := .t.
oWorksheet := oExcel:Get( "ActiveSheet" )
oWorksheet:SaveAs( "c:\temp\tabela.CSV",  6 ) // Segundo parâmetro informa o tipo de saída
oWorksheet:SaveAs( "c:\temp\tabela.XLS", 56 ) // Segundo parâmetro informa o tipo de saída

Só não resolvi o processo preso na task manager.

Informativo:

fonte: https://support.microsoft.com/pt-br/help/291308/how-to-select-cells-ranges-by-using-visual-basic-procedures-in-excel

// Defines para o segundo parâmetro

#define xlCSV 6 // CSV *.csv
#define xlCSVMSDOS 24 // MSDOS CSV *.csv
#define xlCSVWindows 23 // Windows CSV *.csv
#define xlDBF3 8 // Dbase 3 format *.dbf
#define xlExcel8 56 // Excel 97-2003 Workbook *.xls
#define xlHtml 44 // HTML format *.htm; *.html
#define xlTextMSDOS 21 // MSDOS Text *.txt
#define xlWorkbookNormal -4143 // Workbook normal *.xls

[rubens]

Boa tarde...

Hum...
mesmo se a versão do Office instalado for a 2013?
Porque a 2013 não tem Salvar como .dbf

Rubens

[rochinha]

Amiguinhos,

A opção Salvar Como... no menu é dependente dos conversores adicionados no momento da instalação. Tente assim mesmo e me diga se funcionou.

Se não funcionar é porque existe a dependencia destes conversores na instalação e então será necessário instalá-los.