怎么用SQL的方法将两个工作表的不同记录导到新工作表中？

nhygm

怎么用SQL的方法将两个工作表的不同记录和相同记录导到新工作表中，以工作表1为标准对比工作表2的记录，把在表1中有而在表2没有的的记录 导入到新建的工作表中，表1和表2中都有的记录，新建一个名为“相同记录”的工作表保存。
如何用SQL将2个工作表的相同和不同的记录生成新的工作表.rar (280.32 KB, 下载次数: 277)

2013-1-29 10:21 上传

点击文件名下载附件

yqdaqinqin

select不好完成！我也想要结果！麻烦楼主有结果转告一下

xuem2009

我也很想知道

yqdaqinqin

我以前是把两页的a列取不重复值，然后对其他列再进行相应的处理！感觉有点麻烦，是代码加公式完成的！！！

zzb46389

顶一下，楼主请上传附件

xd3210

select * from [sheet1$] as a left join [sheet2$] as b on a.f1=b.f1 where b.f1 is null '不同记录

脫掱

注意：使用下面查询语句，均必须取消勾选“数据首行包含列标题”或在OLE DB连接属性的连接字符串文本框中，将HDR=YES修改为HDR=NO。这样才能保证第一行不作为标题行，而作为记录。  因为记录较多，时间也较长，请做好心理准备
两个要求SQL语句分别如下：
1、表1有，表2没有记录的语句。
SELECT F1,F2,F3,F4,F5 FROM (SELECT   A.F1,A.F2,A.F3,A.F4,A.F5,B.F1&B.F2&B.F3&B.F4&B.F5 AS F6
FROM [Sheet1$]A
LEFT JOIN [Sheet2$]B
ON A.F1&A.F2&A.F3&A.F4&A.F5 = B.F1&B.F2&B.F3&B.F4&B.F5)
WHERE F6 IS NULL
2、相同记录
SELECT      A.F1,A.F2,A.F3,A.F4,A.F5  FROM [Sheet1$]A
INNER JOIN [Sheet2$]B
ON A.F1&A.F2&A.F3&A.F4&A.F5 = B.F1&B.F2&B.F3&B.F4&B.F5

zhaogang1960

第一个问题请参考：

1. Sub Sheet1独有()
   
2.     Dim cnn As Object, SQL$, sh As Worksheet
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
5.     SQL = "select a.* from [Sheet1$] a left join [Sheet2$] b  on a.f1=b.f1 and a.f2=b.f2 and a.f3=b.f3 and a.f4=b.f4 where b.f1 is null"
   
6.     On Error Resume Next
   
7.     Set sh = Sheets("Sheet1独有")
   
8.     If Not sh Is Nothing Then
   
9.         sh.Cells.Clear
   
10.     Else
    
11.         Sheets.Add.Name = "Sheet1独有"
    
12.     End If
    
13.     Sheets("Sheet1独有").Range("A1").CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. 
    

复制代码

zhaogang1960

第二个问题请参考：

1. Sub 相同记录()
   
2.     Dim cnn As Object, SQL$, sh As Worksheet
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
5.     SQL = "select a.* from [Sheet1$] a,[Sheet2$] b where a.f1=b.f1 and a.f2=b.f2 and a.f3=b.f3 and a.f4=b.f4"
   
6.     On Error Resume Next
   
7.     Set sh = Sheets("相同记录")
   
8.     If Not sh Is Nothing Then
   
9.         sh.Cells.Clear
   
10.     Else
    
11.         Sheets.Add.Name = "相同记录"
    
12.     End If
    
13.     Sheets("相同记录").Range("A1").CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

nhygm

感谢各位帮忙，怪我没说明白，表1和表2的记录 都以A列为准，所以用a.f1=b.f1 就可以了。
我在问一个问题，如果表1和表2是两个工作薄的2个工作表，用SQL怎么写呢？？