Exportar Consulta ou Tabela Para Excell Usando Access

preview_player
Показать описание

----------------------------------------------------------------------------------------------------------
Código VB:
Crie um botão e insira este código:

Dim objExcel As Object
Dim strPlanilha As String

Msg = "Deseja Exportar dados para Excel?"
If MsgBox(Msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then


'OPÇÃO ABRINDO O ARQUIVO
'Indica o local e o nome do arquivo exportado
'strPlanilha = "C:\Exportados\" & "NOME DO ARQUIVO EXPORTADO" & ".xls"
'DoCmd.OutputTo acOutputQuery, "NOME DA CONSULTA", acFormatXLS, strPlanilha, 0


'OPÇÃO ABRINDO A PASTA
'Indica o local e o nome do arquivo exportado
strPlanilha = "C:\Exportados\" & "NOME DO ARQUIVO EXPORTADO" & "_" & Format(Date, "dd-mm-yy") & " " & Format(Now, "hhmmss") & ".xls"
DoCmd.OutputTo acOutputQuery, "NOME DA CONSULTA", acFormatXLS, strPlanilha, 0

'Cria o objeto
Set objExcel = CreateObject("Excel.Application")

'Esconde o arquivo
objExcel.Visible = False

'Cria o arquivo
With objExcel
.Workbooks.Open (strPlanilha)
.Selection.CurrentRegion.Select
.Selection.AutoFilter 'Já cria um auto-filtro na planilha Excel
.Range("A1").Select
.Workbooks(1).Close SaveChanges:=True
.Quit


'Abre o arquivo
'MsgBox "Exportado Com Sucesso...", vbInformation

'Abre o local de salvamento
MsgBox "Exportado Com Sucesso...", vbInformation


End With

Set objExcel = Nothing

End If

Contatos:
Telefone: (11) 2387-0598
WhatsApp: (11) 9 6199-1477
Рекомендации по теме
Комментарии
Автор

Parabéns pelo trabalho, em cima desse exemplo se puder me explicar como faço para exportar um planilha para cada cliente da mesma consulta?

Amman-Bg-Br
Автор

Sua explicações são muito boas, sou um telespectador assíduo. Mas preciso de uma ajuda, Rodei no Access 365 e funcionou bem, mas quando joguei para o Access 2007 ele não aceita essa declaração: "Dim objExcel As Object" está faltando uma biblioteca sabe me dizer qual devo ativar para conseguir rodar?

FabianFXssa
Автор

E como eu faço pra quando sair, do arquivo. Ele ser excluído automaticamente, e voltar para o access.

janio.moraes.
Автор

Oi boa tarde!
Como faço para exporta duas ou três tabelas (consulta) no mesmo arquivo do excel.
Obrigadp

danielponcianolagares
Автор

Poderiam fazer esse visualbsic passo a passo, ou facultar me esse código

SuperDavidFz
Автор

Funciona para Acess 365? Não consigo fazer..

crmatesco