MeiraGoncalves ponto com

Para quem ainda carrega o legado das tabelas DBF, essa é uma interessante função para gerar consultas SQL que extraem os dados dessas tabelas, transferindo-os para uma planilha EXCEL.

Não se trata apenas de abrir a tabela DBF, o que o EXCEL faz tranquilamente, mas gerar consultas inteligentes, que mesclem dados entre tablelas e podem criar excelentes relatórios diretamente no EXCEL.

Você precisará de conhecimentos básicos de SQL, de VBA e EXCEL.

Para acessar o VBA, e criar o código, você pode se basear no link http://www.meiragoncalves.com/blog/?p=154, e substituir o código que está lá por esse que segue:

* O código abaixo supõe que você tem um arquivo CLIENTES.DBF na pasta C:\PASTA\COM\AS\TABELAS;

Function OpenDBFConn()
Dim Conn, SQL, ListaTabela
Set Conn = CreateObject(“ADODB.Connection”)
Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & “c:\pasta\com\as\tabelas” & “;” & _
“Extended Properties=”"DBASE IV;”";”
Set OpenDBFConn = Conn

SQL = “SELECT * FROM CLIENTES”

Set listaTabela = Conn.Execute(SQL)

Range(“a1″).Select

While Not listaTabela.EOF
ActiveCell.Value = listaTabela(“CODIGO”)
ActiveCell.Offset(0, 1).Value = listaTabela(“NOME”)
ActiveCell.Offset(0, 2).Value = listaTabela(“TELEFONE”)

ActiveCell.Offset(1, 0).Select

listaTabela.MoveNext

Wend

End Function

Dúvidas, críticas, sugestões ? Deixe seu comentário.