从Excel导入Access时将第一列设为主键并填充连续序号求助

我来帮你搞定这个需求！你的导入代码已经能正常工作了，只需要在导入完成后添加两步操作：给第一列填充连续数字，再把它设为主键。下面是修改后的完整代码，我会一步步解释细节：

Public Sub ImportProtected(strFile As String, strPassword As String)
    Dim oExcel As Object, oWb As Object
    Dim db As Object, rs As Object
    Dim fieldName As String
    Dim rowNum As Long
    
    ' 导入加密Excel文件
    Set oExcel = CreateObject("Excel.Application")
    Set oWb = oExcel.Workbooks.Open(FileName:=strFile, Password:=strPassword)
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "_tmp_table", strFile, -1
    oWb.Close SaveChanges:=False
    oExcel.Quit
    Set oExcel = Nothing
    Set oWb = Nothing
    
    ' 开始处理主键和序号
    Set db = CurrentDb()
    
    ' 获取临时表的第一列字段名（适配任意Excel表头）
    Set rs = db.OpenRecordset("_tmp_table", dbOpenSnapshot)
    fieldName = rs.Fields(0).Name
    rs.Close
    
    ' 给第一列填充连续数字1、2、3...
    Set rs = db.OpenRecordset("_tmp_table", dbOpenDynaset)
    rowNum = 1
    Do While Not rs.EOF
        rs.Edit
        rs(fieldName) = rowNum
        rs.Update
        rowNum = rowNum + 1
        rs.MoveNext
    Loop
    rs.Close
    
    ' 将第一列设置为主键（因为刚填充了唯一序号，不会有重复值问题）
    On Error Resume Next ' 避免表已存在主键的报错
    db.Execute "ALTER TABLE _tmp_table DROP CONSTRAINT PrimaryKey;"
    On Error GoTo 0
    db.Execute "ALTER TABLE _tmp_table ADD PRIMARY KEY (" & fieldName & ");", dbFailOnError
    
    ' 清理对象
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "导入、序号填充和主键设置完成！"
End Sub

关键步骤解释： #

• 获取第一列名称：用rs.Fields(0).Name自动获取导入表的第一列字段名，不管你的Excel第一列表头是什么，都能适配。
• 填充连续序号：通过DAO记录集循环遍历每一行，给第一列赋值递增的数字，确保每个值唯一，为后续设置主键做准备。
• 设置主键：先尝试删除已有的主键（避免重复设置报错），再用ALTER TABLE语句把第一列设为主键。因为我们刚填充了唯一的序号，所以不会出现主键重复的问题。

注意事项： #

• 这段代码会覆盖第一列原有的数据，如果你的Excel第一列本来有需要保留的数据，记得提前调整逻辑（比如新增一列来存序号，再把新列设为主键）。
• 代码用了Late Binding（没有引用DAO库），所以在不同版本的Access里都能正常运行，不需要额外设置引用。

内容的提问来源于stack exchange，提问作者dmorgan20