两个工作簿的数据对比

lpzxhjp

zhaogang1960 发表于 2012-4-13 19:58
请看附件

谢谢赵老师！我看看

jygzcj

zhaogang1960 发表于 2012-4-13 19:57
短信收到
Sub Macro1()
    Dim cnn As Object

可否细说里面的Mytable这个好像是那种导入数据里面的SQL用法样的。

zhaogang1960

jygzcj 发表于 2012-4-14 23:42
可否细说里面的Mytable这个好像是那种导入数据里面的SQL用法样的。

你理解的正确
本来我想使用 myTable = "[Sheet1$a3:r]，就相当于数据库中的数据表(数据表不用加方括号，也不用加$，也不用加列标)
可结果却连同没有数据的空单元格也复制过来了，无奈才在工作表后面加了一个条件
myTable = "[Sheet1$a3:r] where 考场 is not null"
前面的'    myTable = "[Sheet1$" & [a3].CurrentRegion.Address(0, 0) & "]"是多余的

blackttea1

作个记号，谢谢！

lpzxhjp

zhaogang1960 发表于 2012-4-13 19:57
短信收到
Sub Macro1()
    Dim cnn As Object

赵老师：您好！
如果要对比本工作簿中的2张工作表，工作表名分别为“录入员1”和“录入员2”，那代码怎么修改呀？谢谢！

zhaogang1960

lpzxhjp 发表于 2012-4-17 10:05
赵老师：您好！
如果要对比本工作簿中的2张工作表，工作表名分别为“录入员1”和“录入员2”，那代码怎么 ...

请上传附件说明

lpzxhjp

zhaogang1960 发表于 2012-4-17 10:31
请上传附件说明

谢谢赵老师，附件已上传。

zhaogang1960

lpzxhjp 发表于 2012-4-17 11:21
谢谢赵老师，附件已上传。

1. Private Sub CommandButton1_Click()
   
2.     Dim cnn As Object
   
3.     Dim myTable As String
   
4.     Dim SQL$, s$, i&, a
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     a = [c3:R3&""]
   
7.     For i = 1 To UBound(a)
   
8.         s = s & ",iif(a." & a(i) & "=b." & a(i) & ",'√','×')"
   
9.     Next
   
10.     SQL = "select a.考场,a.考号" & s & " from [录入员1$" & Sheets("录入员1").[a3].CurrentRegion.Address(0, 0) & "] a left join [录入员2$" & Sheets("录入员2").[a3].CurrentRegion.Address(0, 0) & "] b on a.考场=b.考场 and a.考号=b.考号"
    
11.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1';Data Source=" & ThisWorkbook.FullName
    
12.     Range("A4:R65536").ClearContents
    
13.     [a4].CopyFromRecordset cnn.Execute(SQL)
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    

复制代码

nliang2011

做个记号，谢谢

ken111111

做个记号，谢谢