将自动值添加到访问表

Question

我有一个从Excel导入到Access的导入。效果很好。我唯一的问题是导入后没有带有自动值(主键(的列。

这是我的进口：

Private Sub Befehl1_Click()
DoCmd.TransferSpreadsheet acImport, 10, _
"Tabelle1", "C:Usersu054535DesktopMappe1.xlsx", True, "Tabelle2!A1:H13"
End Sub

有人知道如何将带有自动值的列添加到导入中吗？甚至可能吗？

Answer 1

选项：

1. 导入到现有表

2. 导入后运行更改表操作 SQL

3. 使用导入规范

Answer 2

试试这个：

Private Sub Befehl1_Click()
DoCmd.TransferSpreadsheet acImport, 10, _
"Tabelle1", "C:Usersu054535DesktopMappe1.xlsx", True, "Tabelle2!A1:H13"
'Add an AutoNumber column
CurrentDb.Execute "ALTER TABLE Tabelle1 ADD COLUMN ID COUNTER"
End Sub