导入Excel数据时判断重复问题

江南混混

Sub 导入Excel数据()
Dim cnn, rs, SQL
Dim wkbk As Workbook
Dim myFileName As String

    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("adodb.Recordset")
    cnn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\dl.accdb;jet oledb:database password=123456"

myFileName = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls*),*.xls*", Title:="选择Excel文件")
If myFileName = "False" Then
   MsgBox "您已选择取消导入文件!", vbInformation, "取消"
Else

  SQL = "insert into 统计 select * from [Excel 8.0;Database=" & myFileName & "].[记录明细$]"
  cnn.Execute SQL

If MsgBox("确定要导入文件到数据库吗?", vbOKCancel + vbQuestion, "系统提示") = vbOK Then
   MsgBox "数据录入成功!"

End If
End If
End Sub
上面是Excel数据导入到access工作表的代码，上面代码可以正常导入，麻烦各位大侠帮忙看一下，怎样加句判断重复的语句代码？我现在要在Excel表中的w列"开始时间"字段和x列"结束时间"字段和access数据库"统计"表中的w列"开始时间"字段和x列"结束时间"字段来比较，如果w列和x列的数据在access数据库"统计"表中有重复，那么就不导入数据，如果没有重复则可以导入数据！


恳请大侠们帮我写一下这个判断重复的代码！万分感谢！

hfwufanhf2006

加上distinct应该就可以了吧；

江南混混

hfwufanhf2006 发表于 2020-3-23 17:45
加上distinct应该就可以了吧；

不行啊，试过了