Question

我想使用Excel VBA查询MS Access数据库，搜索并添加到表中。

通过搜索此网站，我发现了以下代码：

Dim dbs As DAO.Database

Dim dbs As Object
Set dbs = OpenDatabase("FILEPATH\database1.accdb")


dbs.Execute "INSERT INTO Table1(ID, Field1, Field2, Field3) VALUES('1','Hello','Helo','Hi')"

不起作用，因为它表示没有为函数OpenDatabase（）定义子函数或函数

有没有人有更好的方法

当我知道有更好的方法时，我想这样做的原因是因为数据库和电子表格已经存在（由我的雇主运行）而我只想链接它们。

Answer 1

试试这个（当然是正确的FILEPATH）：

  Dim appAccess As Object: Set appAccess = CreateObject("Access.Application")
  appAccess.OpenCurrentDatabase ("FILEPATH\database1.accdb")
  appAccess.CurrentProject.Connection.Execute "INSERT INTO Table1(ID, Field1, Field2, Field3) VALUES('1','Hello','Helo','Hi')"
  Set appAccess = Nothing

使用Excel VBA查询Access数据库

1 个答案: