将数据通过VBA从Excel插入Access表中

Question

我需要帮助，将数据从Excel中的记录行插入到Access表中。我可以使用此处的代码（Insert Data from Excel into Access using VBA）进行此操作，但是由于相同的主键值，我无法插入表中已经存在的记录。

我想要的是能够更新记录或删除记录并使用相同的键输入一个新记录。

感谢您的任何帮助。

Dim Connect As ADODB.Connection
Set Connect = New ADODB.Connection


Connect.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\Users\ExcelFileName.xlsm;Extended Properties=Excel 8.0;" & "Persist Security Info=False"
Connect.Execute "INSERT INTO tbl_TCM_MAA_Data IN 'C:\DataBaseFileName.accdb' SELECT * FROM [SheetName$A2:O2]"

Connect.Close
Set Connect = Nothing

Answer 1

xlFilepath = Application.ThisWorkbook.FullName

Set Var = Sheets1.Range("A1")

Connect.Execute "Delete * FROM [TableName] WHERE [Column Name] = " & Var & ""

SQL = "INSERT INTO tbl_TCM_MAA_Data " & _

"SELECT * FROM [Excel 12.0 Macro;HDR=YES;DATABASE=" & xlFilepath & "].[SheetName$A2:O2] where [Column Name] > 1"

Connect.Execute SQL

在数据表中的警告表前8行。假设有一个标题（HDR =是）接下来的6行应包含一个虚拟数据，以定义与访问表列定义等效的列。