VBA Excel - Exportando dados do MS Excel para o MS Access (DAO).

Exportar dados do MS Excel para o MS Access (utilizando DAO).

 

Desenvolvido por: Erlandsen

 

Se quiser exportar dados para uma tabela do MS Access, a partir de uma planilha do MS Excel, o código exemplificado abaixo mostrará como isso pode ser feito: 

Sub DAOFromExcelToAccess() ' exports data from the active worksheet to a table in an Access database ' this procedure must be edited before use Dim db As Database, rs As Recordset, r As Long     Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb")      ' open the database     Set rs = db.OpenRecordset("TableName", dbOpenTable)      ' get all records in a table     r = 3 ' the start row in the worksheet     Do While Len(Range("A" & r).Formula) > 0      ' repeat until first empty cell in column A         With rs             .AddNew ' create a new record             ' add values to each field in the record             .Fields("FieldName1") = Range("A" & r).Value             .Fields("FieldName2") = Range("B" & r).Value             .Fields("FieldNameN") = Range("C" & r).Value             ' add more fields if necessary...             .Update ' stores the new record         End With         r = r + 1 ' next row     Loop     rs.Close     Set rs = Nothing     db.Close     Set db = Nothing End Sub 

 

O exemplo acima assume que o seu projeto do VBA não adicionou uma referência à biblioteca objeto DAO.

Você pode fazer isso de dentro do VBE, selecionando o menu Ferramentas, Referências..., selecione Microsoft DAO Object Library.

Utilize o ADO se você puder escolher entre ADO e DAO para manipular os dados de importação ou exportação.