关于自动比对两表的重复记录的求助

岁寒三友

附件里的文件是我看了zhaogang1960老师帮助坛友“风雨之后”时所写的代码所想到的扩展。但我想按照zhaogang1960老师的代码依样画葫芦时，却遇着了难题，即是怎样提取“两表共同拥有”的数据？恳请老师们给予帮助。详细要求、说明请见附件。
原帖地址：http://club.excelhome.net/thread-436225-1-1.html
自动比对重复的记录的拓展.rar (19.02 KB, 下载次数: 57)

2010-12-14 12:31 上传

点击文件名下载附件

[ 本帖最后由 岁寒三友 于 2010-12-14 18:56 编辑 ]

zhaogang1960

原帖由 岁寒三友 于 2010-12-14 12:31 发表
附件里的文件是我看了zhaogang1960老师帮助坛友“风雨之后”时所写的代码所想到的扩展。但我想按照zhaogang1960老师的代码依样画葫芦时，却遇着了难题，即是怎样提取“两表共同拥有”的数据？恳请老师们给予帮助。详 ...

什么时候写的已经不记得了，也看不明白了，下面代码使用ado解决，试试看：
Sub Macro1()
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim SQL$, s$, arr
    Set cnn = New ADODB.Connection
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
    arr = Sheets("表一").[A1:E1&""]
    s = Join(arr, "&") '整行连接字符串
    SQL = "Select * from [表一$" & Sheets("表一").[a1].CurrentRegion.Address(0, 0) & "] where " _
        & s & " not in (Select " & s & " from [表二$" & Sheets("表二").[a1].CurrentRegion.Address(0, 0) & "])"
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, 1, 3
    Range("A1").CurrentRegion.Offset(1).ClearContents
    Range("A2").CopyFromRecordset rs '表一独有
    Range("f2").Resize(rs.RecordCount) = "√"
    SQL = "Select * from [表二$" & Sheets("表二").[a1].CurrentRegion.Address(0, 0) & "] where " _
        & s & " not in (Select " & s & " from [表一$" & Sheets("表一").[a1].CurrentRegion.Address(0, 0) & "])"
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, 1, 3
    Range("A65536").End(xlUp).Offset(1).CopyFromRecordset rs '表二独有
    Range("f65536").End(xlUp).Offset(1, 1).Resize(rs.RecordCount) = "√"
    SQL = "Select * from [表一$" & Sheets("表一").[a1].CurrentRegion.Address(0, 0) & "] where " _
        & s & " in (Select " & s & " from [表二$" & Sheets("表二").[a1].CurrentRegion.Address(0, 0) & "])"
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, 1, 3
    Range("A65536").End(xlUp).Offset(1).CopyFromRecordset rs '两表共同拥有
    Range("g65536").End(xlUp).Offset(1, 1).Resize(rs.RecordCount) = "√"
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub
自动比对重复的记录的拓展2.rar (18.06 KB, 下载次数: 124)

2010-12-15 09:37 上传

点击文件名下载附件

[ 本帖最后由 zhaogang1960 于 2010-12-15 09:37 编辑 ]

doitbest

sql共用了三次，还不算嵌套，真是精熟到家了！

岁寒三友

谢谢赵老师的回复！

LMY123

ADO,同薄双表比对

Mainne

zhaogang1960 发表于 2010-12-15 00:23
什么时候写的已经不记得了，也看不明白了，下面代码使用ado解决，试试看：
Sub Macro1()
    Dim cnn A ...

大神2013提示错误，能否再改一下！
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName  
office2013运行错误，提示错误代码“3076”

Mainne

cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName  
这句office2013运行错误，提示错误代码“3076”，哪位大神知道原因~