Clipper On Line • Ver Tópico - Importar tabelas .DBF para arquivos .CSV e/ou .XLS rapido
Página 1 de 1

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

MensagemEnviado: 24 Nov 2018 16:22
por rochinha
Amiguinhos,

Eis uma forma rápida de importação de tabelas .DBF para arquivos .CSV e/ou .XLS de forma rápida:
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

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

MensagemEnviado: 26 Nov 2018 13:50
por 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

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

MensagemEnviado: 26 Nov 2018 14:55
por 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.