小编lui*_*v93的帖子

如果唯一 ID 不存在，我正在尝试更新记录或创建记录。

该代码给了我一个错误，告诉我它会创建重复的值。

我需要在我的代码“SQL：如果存在更新其他插入”中包含它。

Sub Upload_Excel_to_Access()

Dim wbpath As String

wbpath = Application.ActiveWorkbook.Path

Dim con As Object '' ADODB.Connection
Set con = CreateObject("ADODB.Connection") '' New ADODB.Connection
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=\\at\HRS SD Performance Data\Capacity DB.accdb;"
con.Execute _
"INSERT INTO AssigenedVol_tbl " & _
"SELECT * FROM [Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=C:\Users\luga\Desktop\Databasetest\DB Macro Test.xlsm].[rawdata$]"
con.Close
Set con = Nothing
End Sub

表名是“AssignedVol_tbl”

字段有：Process_Identifier、Login、Volume、effDate、ID_Unique（这是数据库中的主键）