☰

将多个链接的 Excel 表中的数据合并到主 Access 表中

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 microsoft-access merge
将多个链接的 Excel 表中的数据合并到主 Access 表中

我有多个 Excel 工作表，这些工作表的标题完全相同，我已将它们链接到 Access。我在将 Excel 文件中的所有数据合并到一个主 Access 表中时遇到了问题，同时当人们编辑 Excel 工作表中的信息时，主 Access 表保持更新。通常会使用查询，但 Access 数据库可以自行更新数据吗？

答案1

我能建议您的最简单的方法是更新查询。

由于您的 Excel 表与 Access 数据库表相同，因此更新查询将运行得更快，并且您的 Excel 表将像 Access 中的任何附加表一样出现。

我确实希望 Excel 中的标题和数据之间没有空行。

其他解决方案是 VBA 代码，您可以尝试一下。

Private Sub UpdateAccess()

Dim db As Database
Dim rs As RecordSet
Dim sql As String
Dim dbLocation As String

dbLocation = Workbook.Path & "\database\data.accdb"
Set db = OpenDatabase(dbLocation)
sql = "Select * FROM [Main Table]"
Set rs = db.OpenRecordSet(sql, dbOpenSnapshot)

If Not rs.EOF Then
   Worksheets("Sheet1").Range("A1").CopyFromRecordset rs
End If

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub

注意：当合并无条件时，此 VBA 代码将成功运行。

相关内容