[5分]如何不重复导入excle表中的资料

将“文件代号+货名+件数+车次”设为“唯一索引”，这样导入时将弹出一个错误提示：提示是否继续，选择“否”即可。代码如下：

Private Sub Command0_Click()
    On Error GoTo Err_Command0_Click
    DoCmd.TransferSpreadsheet acImport, 8, "导入", "D:\导入.XLS", True, "货物表"
    MsgBox "导入成功", vbInformation, "提示"

Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox "数据重复，不能导入"
    Resume Exit_Command0_Click
End Sub