☰

将 Excel 中的值附加到 Access 表中，并自动生成 ID

tag-icon • tag-icon microsoft-excel vba microsoft-access
将 Excel 中的值附加到 Access 表中，并自动生成 ID

我有一个 Access 数据库，里面有一些表，这些表每天都会更新一些值。我需要这些表有一个ID字段，当从 Excel 导入表的其他值时，该字段会自动生成。我想通过保留一个按钮并编写 VBA 代码来自动化所有操作。现在我有一个将值导入表中的表单，但它只导入我拥有的确切值。我还需要一个额外的列，ID在导入时必须自动生成。请帮帮我。

Excel 工作表示例：

ProductName | ProductValue
------------+--------------
ABC         | 76
SDF         | 87

数据库表

ID|ProductName| Product Value
--+-----------+--------------
1 | ABC       |76
2 | SDF       |87

Excel 工作表每天都会更新新值，并且必须将其放入 Access 数据库中并ID自动增加。因此，每日更新后，值会从上一个值增加。

Dim filepath As String

filepath = "E:\rt.xlsx"
If FileExist(filepath) Then
    DoCmd.TransferSpreadsheet acImport, , "TempfromExcel", filepath, True
    DoCmd.OpenQuery "qryAppend", acViewNormal

Else
    MsgBox ("File not found.")
End If

答案1

正如评论中所述，最好的方法是将ID字段设置为AutoNumber。如果你已经在该字段中有大量数据，则需要重置字段。

设置自动编号

完成此操作后，只需不要在附加查询中包含该字段即可。Access 将自动填写每个新记录的下一个值。

相关内容