追加不重复的数据到新工作表---在线等，急

380552628

简述：数据1里有历史数据，也有当期数据，数据2是历史数据，为防止误操作，我想把数据1表与数据2表的数据进行比对，将数据1中存在，但数据2中不存在的数据追加到数据2中，详见附件，谢谢各位

iwangyi

用d.exiStS()

jiangxiaoyun

1. Sub cd()
   
2.     Dim sql$, cnn
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     With cnn
   
5.         If Application.Version = "11.0" Then
   
6.             .Provider = "microsoft.jet.oledb.4.0"
   
7.             .ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & ThisWorkbook.FullName
   
8.         Else
   
9.             .Provider = "microsoft.ACE.oledb.12.0"
   
10.             .ConnectionString = "extended properties=""excel 12.0;HDR=YES;"";data source=" & ThisWorkbook.FullName
    
11.         End If
    
12.         .Open
    
13.     End With
    
14.     sql = "select a.* from [数据1$a1:e] a where not exists (select 识别号 from [数据2$a1:e] b where a.识别号=b.识别号) "
    
15.     With Sheet2
    
16.         lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    
17.         .Range("a" & lr).CopyFromRecordset cnn.Execute(sql)
    
18.     End With
    
19.     Set cnn = Nothing
    
20. End Sub
    
21. 
    

复制代码

380552628

jiangxiaoyun 发表于 2018-8-27 10:18

    With cnn
        If Application.Version = "11.0" Then
            .Provider = "microsoft.jet.oledb.4.0"
            .ConnectionString = "extended properties=""excel 8.0;HDR=YES;"";data source=" & ThisWorkbook.FullName
        Else
            .Provider = "microsoft.ACE.oledb.12.0"
            .ConnectionString = "extended properties=""excel 12.0;HDR=YES;"";data source=" & ThisWorkbook.FullName
        End If
        .Open
    End With
这段是判断我所用的数据库的版本？可以省略不？

380552628

iwangyi 发表于 2018-8-27 10:08
用d.exiStS()

我试了试可以到是可以，可实际的数据1和数据2的横向字段特别多，估计有近100个，写起有点麻烦

jiangxiaoyun

sql = "select a.* from [数据1$a1:e] a left join [数据2$a1:e] b on a.识别号=b.识别号 where b.识别号 is null

这样也可以

iwangyi

好的---------

380552628

jiangxiaoyun 发表于 2018-8-27 10:27
sql = "select a.* from [数据1$a1:e] a left join [数据2$a1:e] b on a.识别号=b.识别号 where b.识别号 i ...

你说的这个用数据库的方法我觉得还不错，可以举一反三，谢谢

jiangxiaoyun

380552628 发表于 2018-8-27 10:25
With cnn
        If Application.Version = "11.0" Then
            .Provider = "microsoft.jet ...

你就用12.0的吧

380552628

jiangxiaoyun 发表于 2018-8-27 10:38
你就用12.0的吧

才实践了一下，我横向字段100多项，纵向数据30000多条，目前已运行了5分钟，还在运行？.........