Salve os dados em uma planilha do Excel usando o VBA.
A criação de uma planilha do Excel no Access pode economizar tempo quando você precisa exportar dados para uma planilha do Excel. O Visual Basic for Applications (VBA) pode ser uma ferramenta poderosa para automatizar processos em aplicativos do Microsoft Office. Com o VBA, você pode usar o objeto Aplicativo do Microsoft Excel para criar uma planilha do Excel a partir do Access. O objeto do aplicativo Excel é o ponto de entrada para o resto do modelo de objeto. Exporte dados mais rapidamente para o Excel salvando-os diretamente em uma planilha do Excel.
Passo 1
Inicie o Microsoft Office Access, clique em "Banco de dados em branco" e clique no botão "Criar" para criar um banco de dados em branco. Clique na guia "Ferramentas de banco de dados" e clique em "Visual Basic" para abrir a janela do Microsoft Visual Basic. Clique no menu "Inserir" e clique em "Módulo" para inserir um novo módulo de código.
Vídeo do dia
Passo 2
Clique no menu “Ferramentas” e clique em “Referências”. Role para baixo e marque a caixa ao lado de "Microsoft Excel
etapa 3
Comece digitando o seguinte código VBA para criar um novo subprocedimento:
Private Sub createSpreadSheet ()
Passo 4
Continue digitando o seguinte código para criar três novos objetos variáveis que serão usados para criar a planilha do Excel:
Dim newExcelApp As Excel. Aplicativo. Dim newWbk As Excel. Livro de exercícios. Dim newWkSheet As Excel. Planilha
Etapa 5
Adicione o seguinte código para iniciar o Excel e exibi-lo:
Defina newExcelApp = Excel. Aplicativo
newExcelApp. Visível = Verdadeiro
Etapa 6
Digite o seguinte para adicionar uma nova pasta de trabalho e uma planilha:
Defina newWbk = newExcelApp. Livros de exercícios. Adicionar
Defina newWkSheet = newWbk. Planilhas (1)
Etapa 7
Adicione dados à sua nova planilha digitando o seguinte:
newWkSheet. Células (1, 1) .Value = "Nova planilha ..."
Etapa 8
Salve a nova pasta de trabalho criada digitando o seguinte código:
newWkSheet. SaveAs ("C: \ myworksheet.xlsx")Etapa 9
Edite o caminho na etapa anterior e digite o caminho e o nome do arquivo de sua escolha.
Etapa 10
Digite o seguinte para encerrar o subprocedimento:
End Sub
Etapa 11
Pressione “F5 ″ para executar seu procedimento e criar uma nova planilha do Excel.
