Question

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

我发现此链接有助于通过Excel（Updating Access Database from Excel Worksheet Data）完成此操作。我想要一种方法只在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")

然后使用该数据的单元格引用将数据检索到访问

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

1 个答案: