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.
