Aprender a utilizar o Visual Basic for Applications para importar dados para o Access pode fazer a sua aplicação de banco de dados mais dinâmico. Em VBA, você pode usar uma combinação de objetos para abrir um livro do Excel existente e importar determinados dados em uma tabela no Access. Use a Biblioteca de objetos do Microsoft Excel em VBA para abrir o livro . O objeto Recordset é usado para abrir uma tabela existente no Access e salvar dados do Excel para ele. Usando o VBA para importar dados pode reduzir significativamente a quantidade de tempo que você gasta a importação de dados manualmente. Instruções
1

Abra o Microsoft Office Excel e digite " data1 " em A2, e " data2 " no B2. Pressione "Ctrl " e " S " para abrir o "Salvar como" janela de diálogo e salvar a pasta de trabalho em "C: \\ Temp \\". " DataToImport.xlsx ", como Clique em "Salvar " e feche o Excel .
2

Lançamento Microsoft Office Access , clique em "Banco de Dados em Branco " e clique no botão "Criar" . Clique em "Ferramentas de banco de dados " e clique em " Visual Basic" para abrir a janela do editor de VB . Clique no menu "Inserir" e clique em "Módulo " para inserir um novo módulo de código . Clique no menu "Ferramentas" , clique em "Referências ", e marque a caixa ao lado de " Object Library. "
3

Comece digitando o seguinte código VBA para criar novo procedimento sub:

Private Sub importExcelData ()
4

Digite o seguinte para criar variáveis ​​que você vai usar para ler Excel:

Dim xlApp Como Excel . Aplicação

Dim xlBk Como Excel.Workbook

Dim xlSht Como Excel.Worksheet
5

Digite o seguinte para criar variáveis ​​que você vai usar no Access : < br >

Dim dbRst Como Recordset

Dim dbs as Database

Dim sqlstr as String
6

Digite o seguinte para definir objetos de banco de dados e também definir o Excel pasta de trabalho para usar:

Set dbs = CurrentDb

Set xlApp = Excel.Application

Set xlBk = xlApp.Workbooks.Open ("C: \\ Temp \\ dataToImport.xlsx " )

Set xlSht = xlBk.Sheets (1)
7

Crie uma nova tabela com duas colunas no Access para importar dados de Excel. Digite o seguinte código VBA para criar a tabela usando o " DoCmd " objeto :

sqlstr = " CREATE TABLE Exceldata ( columnOne TEXTO, columnTwo texto)"

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr )
8

Abra a tabela que você criou usando um objeto Recordset. Digite o seguinte para abrir a tabela e adicionar uma nova linha :

Set dbRst = dbs.OpenRecordset ( " Exceldata " )

dbRst.AddNew
9

Tipo o seguinte para obter os valores a partir do livro do Excel, salvá-los em sua mesa e atualizar o registro :

xlSht.Range ( "A2" ) Selecione

dbRst.Fields (0) Value. . = xlSht.Range ( "A2" ) . Valor

xlSht.Range ( "B2" ) . Selecione

dbRst.Fields (1). Valor = xlSht.Range ( "B2" ) . Valor

dbRst.Update
10

Termine o seu procedimento ao escrever o seguinte código VBA:

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Pressione " F5" para executar o procedimento . Os dados na sua pasta de trabalho Excel acaba de ser importado em sua tabela do Access.