使用ACCESS VBA中的Excel数据更新.accdb

Question

我一直在寻找一种使用存储在Excel文件中的数据更新Access数据库的方法，但是我只能从Excel VBA中找到方法，而不能通过Access本身而不是我想要的方法。 这将使用在Excel文件中定期更新的数据动态更新Access表。 我在Access中的表中设置了自动编号作为主键。 我只需要一个代码即可在命令上执行此操作（如“刷新按钮”）。

我发现此链接有助于通过Excel（ 从Excel工作表数据更新Access数据库 ）进行操作。 我想要一种仅在Access中进行操作的方式（无需打开Excel；仅引用工作表中的数据）。 这可能吗？

Answer 1

您无法通过我知道的sql语句来执行此操作，但是可以创建一个按钮，单击该按钮可打开工作簿/工作表，然后将数据从工作簿/工作表中检索到数据库中-类似于：

dim XL as object
dim WB as object
dim WS as object

Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.DisplayAlerts = False
Set WB = XL.workbooks.open(pathname)
Set WS = WB.Worksheets("Sheet1")

然后使用该数据的单元格引用检索数据以进行访问