是否可以使用Excel中的VBA将Excel数据附加到Access数据库文件？

Question

我在Excel 2010工作表中有三个单元格,例如a1,a2和a3.每次用户运行我的Excel宏时,我都需要它来获取这些单元格中的信息并将其附加到现有的Access DB文件中.这就是db文件中的所有内容,只是一个运行列表.

所以,我不想从Access导入.我希望这一切都发生在Excel方面,最好不要打开访问权限.这是可能的还是我可以告诉我的丈夫忘掉它？

如果有可能,有人能给我一个关于如何去做的线索吗？或者在哪里了解它？我对Excel中的VBA很满意,但对Access或甚至是数据库都没有经验.

谢谢!

Answer 1

创建对Microsoft DAO 3.6对象库的引用并开始使用此代码:

Sub DBInsert()
Dim DB As DAO.Database
Dim RS As DAO.Recordset

    ' open database
    Set DB = DAO.OpenDatabase("C:\Users\Myself\Desktop\MyDB.mdb")

    ' open table as a recordset
    Set RS = DB.OpenRecordset("Table1")

    ' add a record to the recordset
    RS.AddNew

    ' fill fields with data ... in this case from cell A1
    RS.Fields("Field1") = [A1]

    ' write back recordset to database
    RS.Update

    ' important! cleanup
    RS.Close

    ' forget to close the DB will leave the LDB lock file on the disk
    DB.Close

    Set RS = Nothing
    Set DB = Nothing
End Sub

在工作表上创建一个按钮并将此代码放在Button_Click()中,以便用户可以在完成所有输入后将数据发送到数据库.

更多资源:

Office 2013 /数据访问/我如何...

选择ADO或DAO以使用Access数据库