将 Excel 中的两列导入现有的 Access2010 表中使用传输电子表格时出错

Question

我有一个excel电子表格，有12列，我只需要根据最后两列导入数据（剩下的需要填写最后一列。）

Excel table

Acces table

如图所示，我在 Access 中有一个名为“ProjektDelledning”的表，其中 DelledningID 和 SaneringsmetKode 两列已经存在。如果 DelledningID 已经存在，则需要更新 SaneringsmetKode，如果表中不存在，则需要添加该值。所以 Delledning 258 应该在导入后在 Acces 中的 SaneringsmetKode = 1 等等。

到目前为止，我已经尝试过使用这个：

Public Function Import2Columns()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "ProjektDelledning", "C:\Users\JGJ\Desktop\Sanering.xlsx", True, "Concatenate!L:M" 
End Function

我收到一条错误消息，提示 Access 无法将所有数据附加到表中。删除了 0 个记录中的字段内容，并且由于密钥违规而丢失了 0 条记录...

值得注意的是，在Access表中，ProjektID和DelledningID都是key。

关于如何使用传输电子表格或其他方法正确导入的任何帮助。我想使用宏进行导入。

Answer 1

一种方法可以是导入临时表（或只是链接范围）。

然后，使用它，运行组合的更新/追加查询。

Smart Access 中的这个旧技巧是我的最爱之一：

一次查询更新和追加记录

艾伦·比格斯

您知道吗？您可以在 Access 中使用更新查询来访问两者 同时更新和添加记录？这很有用，如果你有 表的两个版本，tblOld 和 tblNew，并且您想要集成 从 tblNew 到 tblOld 的变化。

按照以下步骤操作：

1. 创建更新查询并添加两个表。通过将 tblNew 的键字段拖到 tblOld 的匹配字段上来连接两个表。

2. 双击关系并选择包含来自 tblNew 的所有记录以及仅与 tbl旧的。

3. 从 tblOld 中选择所有字段并将它们拖到 QBE 网格上。

4. 对于每个字段，在更新到单元格中输入 tblNew.FieldName，其中 FieldName 与 tblOld 的字段名称匹配。

5. 从视图菜单中选择查询属性并将唯一记录更改为 False。 （这会关闭 SQL 中的 DISTINCTROW 选项 看法。如果你留下这个，你只会在你的 结果，但您希望为每个要添加的新记录添加一个空白记录 到 tblOld。）

6. 运行查询，您将看到对 tblNew 的更改现在位于 tblOld 中。

   这只会将已添加到 tblNew 的记录添加到 tblOld。 tblNew 中不存在的 tblOld 中的记录仍将保留在 tblOld。