est-il possible d'écrire des données à AccessDB à partir de la macro Excel?

Question

est-il possible d'écrire des données à AccessDB à partir de la macro Excel, comment?

J'ai un petit fichier MBD où je veux importer des données à partir de la feuille Excel?

Answer 1

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 

Answer 2

Avez-vous envisagé le contraire? Il est assez facile de joindre une feuille Excel dans Access, puis d'utiliser une requête make table pour ajouter les données à une nouvelle table ou à une table existante, ce qui évite le codage.