ExcelマクロからAccessDBにデータを書き込むことは可能ですか？

Question

ExcelマクロからAccessDBにデータを書き込むことは可能ですか？

エクセルシートからデータをインポートしたい小さなMBDファイルがありますか？

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

他の方法を考えましたか？ AccessでExcelシートを添付してから、新しいテーブルまたは既存のテーブルにデータを追加するためにテーブル作成クエリを使用すると、コーディングが簡単になります。