Compreender como programar Excel VBA do Access permite que você escreva programas que trocam dados entre as duas aplicações. Cada aplicação tem características que o outro não faz, mas usando o que a Microsoft chama de " automação ", você pode dar a cada programa as ferramentas do VBA e objetos virtuais do outro. Os principais elementos de automação incluem os objetos VBA virtuais de uma aplicação , como o " pastas de trabalho " coleção ea propriedade " ActiveCell " Excel. A declaração VBA que faz com que os objetos do Excel disponível para acesso é " CreateObject ". Instruções
enviar dados para o Excel
1

Open Access , em seguida, clique no botão "Developer" da aba " Visual Basic " para entrar no ambiente de desenvolvimento Visual Basic.
2

Clique no comando "Inserir" do menu " Módulo " para criar uma nova janela para realizar o seu programa de controle de Excel, em seguida, clique no menu "Ferramentas". Clique no comando "Referência" , em seguida, clique na caixa de seleção "Microsoft Excel" para que o seu programa pode acessar objetos virtuais do Excel .
3

Cole o seguinte programa para a janela . Este programa cria uma pasta de trabalho Excel, em seguida, insere texto em uma das células da pasta de trabalho .

Public Sub MadeByAccess ()

Dim aplExcel Como Excel.Application

Set aplExcel = CreateObject ( " Excel.Application " )

aplExcel.Workbooks.Add

aplExcel.ActiveCell = " Olá do Access. "

aplExcel.ActiveWorkbook.SaveAs ( "c: \\ MadeByAccess.xlsx " )

aplExcel.Quit

End Sub
4

Clique no " comando " do menu" Run Run "para executar o programa, então usar o Windows explorer para navegar até a pasta "C: . \\ "
5

Dê um duplo clique no arquivo " MadeByAccess.xlsx " para carregar o arquivo em Excel. Observe a primeira célula da primeira planilha exibe o texto a partir de "Olá a partir do Access ", que apareceu em seu programa.
Ler um valor de Excel
6

Abra o Excel , em seguida, digite o texto na célula "A1" da primeira planilha . Pressione "Control " e " S" ao mesmo tempo, em seguida, digite "C: \\ ForAccess.xlsx " na caixa de texto "Nome". Clique em "Salvar " e pressione "Control" e " F4 " ao mesmo tempo para fechar o Excel .
7

Open Access , em seguida, clique no botão "Developer" da aba " Visual Basic " para entrar na programação Visual Basic ambiente.
8

Clique no comando " Ferramentas " do menu " de referência" , em seguida, clique na caixa de seleção do item "Microsoft Excel" para permitir que o programa de controle de Excel.
9

Clique no comando "Inserir" do menu " Módulo " , em seguida, cole o seguinte programa na nova janela que aparece. Este programa abre a pasta de trabalho do Excel que você criou no passo 1, e lê célula "A1" a partir desse livro.

Public Sub ForAccess ()

Dim aplExcel Como Excel.Application

Definir aplExcel = CreateObject (" Excel.Application " )

aplExcel.Workbooks.Open ( "c: \\ ForAccess.xlsx " )

MsgBox aplExcel.ActiveCell

aplExcel . ActiveWorkbook.Close

aplExcel.Quit

End Sub
10

Clique comando "Executar" do menu " Executar" para executar o programa. Access irá exibir uma caixa de mensagem mostrando o texto digitado na célula da planilha Excel na primeira etapa.