Excel动态图表

原题目：
如何从两张excel表中取数， 生成第三张表?
Excel两表匹配， 姓名相同和 身份证号相同的为同一人！
表一：

	A姓名	B身份证号	C金额
1	张三	642120197409020031	2100
2	李四	552120197509020031	3100
3	王五	693120197408020031	2000
4	陈三	642202197409020031	1000

表二：

	A姓名	B身份证号	C账号
1	张三	642120197409020031	447940
2	李七	552120197509020031	447941
3	赵八	693120197408020031	447942
4	陈三	642202197409020031	447943

比较表一、表二，如果姓名与身份证号二项完全相同，则生成表三

	A姓名	B身份证号	C账号	D金额
1	张三	642120197409020031	447940	2100
2	陈三	642202197409020031	447943	1000

复制内容到剪贴板

代码:

Sub OkExcel()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim SQL As String, cnnStr As String, sFileName As String
Dim ws As Worksheet

Set ws = Worksheets("Sheet3")
sFileName = ThisWorkbook.FullName

cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & sFileName
SQL = "SELECT o.姓名, o.身份证号,t.账号, o.金额 FROM [Sheet1$] AS o INNER JOIN [Sheet2$] AS t ON (o.身份证号 = t.身份证号) AND (o.姓名 = t.姓名)"
cnn.Open cnnStr
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
ws.Activate
ws.Cells.Clear
For i = 1 To rs.Fields.Count
    ws.Cells(1, i) = rs.Fields(i - 1).Name
Next
ws.Range("A2").CopyFromRecordset rs
rs.Close: cnn.Close
Set rs = Nothing: Set cnn = Nothing: Set ws = Nothing
End Sub