將值從 Excel 附加到 Access 表並自動產生 ID

Question

我有一個 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

Answer 1

正如評論中所述，最好的方法是將字段設置ID為AutoNumber.如果您已經在該欄位中擁有大量數據，則需要重置字段。

完成後，只需不要在追加查詢中包含該欄位即可。 Access 將自動填入每個新記錄的下一個值。