Inserir Dados do Excel no Access Vba

Para inserir dados de uma planilha do Excel em uma tabela do Access usando VBA, siga os seguintes passos:

1. Abra o Access e crie uma tabela com os mesmos campos da planilha do Excel que você deseja importar.

2. Clique em "Criar" e selecione "Módulo".

3. No editor do VBA, digite o seguinte código:

```vb Sub ImportarDadosExcel()

' Declarar variáveis Dim xlApp As Excel.Application Dim xlWorkbook As Excel.Workbook Dim xlWorksheet As Excel.Worksheet Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPath As String Dim strTable As String Dim intRow As Integer Dim intCol As Integer

' Definir o caminho para o arquivo Excel strPath = "C:\Caminho\do\Arquivo.xlsx"

' Definir o nome da tabela Access que receberá os dados strTable = "NomeDaTabela"

' Abrir a aplicação Excel e o arquivo Set xlApp = New Excel.Application Set xlWorkbook = xlApp.Workbooks.Open(strPath)

' Definir a planilha a ser lida Set xlWorksheet = xlWorkbook.Worksheets(1)

' Abrir a conexão com o banco de dados Access Set db = CurrentDb() Set rs = db.OpenRecordset(strTable)

' Ler linhas For intRow = 2 To xlWorksheet.Cells(xlWorksheet.Rows.Count, "A").End(xlUp).Row

' Adicionar novo registro rs.AddNew  ' Ler colunas For intCol = 1 To 5rs.Fields(intCol) = xlWorksheet.Cells(intRow, intCol) Next intCol  ' Salvar registro rs.Update 

Next intRow

' Fechar as conexões xlWorkbook.Close xlApp.Quit rs.Close db.Close

' Limpar a memória Set rs = Nothing Set db = Nothing Set xlWorksheet = Nothing Set xlWorkbook = Nothing Set xlApp = Nothing

End Sub ```

4. Altere a variável "strPath" para o caminho completo do arquivo do Excel que você deseja importar.

5. Altere a variável "strTable" para o nome da tabela do Access que você criou anteriormente.

6. Execute o código pressionando F5 ou clicando no botão "Executar".

7. Verifique se os dados foram importados corretamente para a tabela do Access.