Criação de uma planilha do Excel no Access você pode economizar tempo quando você precisa para exportar dados para uma planilha do Excel. Visual Basic for Applications (VBA) pode ser uma ferramenta poderosa para automatizar os processos de aplicativos Microsoft Office. Com VBA você pode usar o objeto Microsoft Application 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. Exportar dados para o Excel mais rápido , salvando os dados diretamente para uma planilha do Excel. Instruções
1

Lançamento 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 aba " Banco de Dados Tools" 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 .
2

Clique no menu " Ferramentas " e clique em "Referências ". Desloque-se e marque a caixa ao lado de " Object Library. " Clique em " OK".
3

Comece por tipo o seguinte código VBA para criar um novo procedimento sub:

Sub createSpreadSheet Privado ( )
4

Continue escrevendo o seguinte código para criar três novos objetos variáveis ​​que serão usadas para criar a planilha Excel:

Dim newExcelApp Como Excel.Application

Dim newWbk Como Excel.Workbook

Dim newWkSheet Como Excel.Worksheet
5

Adicione o seguinte código para lançar Excel e exibi-lo :

Definir newExcelApp = Excel.Application

newExcelApp.Visible = True
6

Digite o seguinte para adicionar uma nova pasta de trabalho e uma planilha:

Definir newWbk = newExcelApp.Workbooks.Add

Definir newWkSheet = newWbk.Worksheets (1)
7

Adicionar dados para a sua nova planilha , digitando o seguinte : .

newWkSheet.Cells (1, 1) Value = " nova planilha ... "
8

Guarde o novo livro criado digitando o seguinte código:

newWkSheet.SaveAs ( " C: \\ myworksheet.xlsx " )
9

Edite o caminho no passo anterior e digite o caminho eo nome do arquivo de sua escolha
10

digite o seguinte para terminar o procedimento sub:

End Sub

11

Pressione " F5" para executar o procedimento e criar uma nova planilha do Excel.