filmov
tv
Exportar Consulta ou Tabela Para Excell Usando Access
Показать описание
----------------------------------------------------------------------------------------------------------
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
Комментарии