Microsoft Excel - Dicas e truques passo a passo

Exportando uma planilha do Access para o Excel

Tempos atrás recebemos um e-mail de um aluno em dúvida sobre como exportar uma planilha do Access para o Excel. Este procedimento é bastante simples e, achamos interessante reproduzir a resposta nesta aula/dica. Para alcançar tal objetivo, proceda da seguinte forma:

1. Em um determinado Form da sua aplicação VB6, insira um CommandButton, que terá o objetivo de ler os dados de uma determinada tabela e exportar tais dados para uma planilha;

2. No evento On_Click do button, insira a seguinte codificação:

Private Sub Command1_click()
Call Planilha("Plan1","C:\pasta1.xls","Teste de exportação","C:\banco_dados.MDB")
End Sub

Private Sub Planilha(Pasta as String, Planilha as String, Tabela as String, Caminho as String)
Dim db as database
Set db=OpenDatabase(Planilha, True, False, "Excel")
db.execute("Select * into[;database="&caminho&"]."&tabela&"from["&pasta&"$]")
MsgBox "Tabela exportada"
Exit Sub

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco