比较两张表生成对帐结果

bbfit

近日发现妻子非常辛苦的在核对两张excel表，都是人员工资表，一张来财务，一张来自人事，目的是分别找出每月的新增人员，离职人员，有的人员工资有相应的变化，各个部门，单位又是混杂在一起，手工一行行的对，非常辛苦。
我不懂VBA编程，从google上找到了这里，希望有高人指点下，有没有好的解决办法，宏， VBA代码可以下载，帮助妻子从繁重的手工对帐中解脱出来，
附件是我列举的excel ，有没有可以实现自动对账，把不同或新增的人员信息列出在另一帐表中

itxianfeng

帮忙顶一下。我也很想知道结果。
因为对账是个很苦恼的问题
这是个比较实用的议题。

zgw1979_job

请问你想要从表A和表B的对比中得出什么结果？

jymao

呵呵...来过...
好像不难,只是不知道楼主要的是什么结果?对比哪些地方,结果显示在哪里?

bbfit

想要的结果是,如果两张表里某人的工资金额不变,则略过,如果有变化,则在第三张表列出来,
比如A表的张成,工资有变化,则在第三表中列出两张表不同,
同时,如果有人补发工资,如龚丽丽,,也要在表三中列出
如果有新增人员,也在表三中列出

如能解决,不胜感激

figfig

Sub fig8()
Set x = CreateObject("ADODB.CONNECTION")
x.Open = "Provider = MSDataShape;data provider=microsoft.jet.oledb.4.0;EXTENDED PROPERTIES='EXCEL 8.0;HDR=yes;imex=1;';data source=" & ThisWorkbook.FullName
Set y1 = x.Execute(" shape {select * from [SHEET1$b2:g888] } append ({select * from [A.xls].[sheet1$b2:f888]} relate ID号 to ID号 ,金额 to 金额 ) as dd")
i = 2
Sheet3.Activate
Do While Not y1.EOF
Set y3 = y1!dd.Value
If y3.EOF Then
For j = 0 To y1.fields.Count - 2
kk = IIf(IsNull(y1.fields(j)), "", y1.fields(j))
Cells(i, j + 1) = kk
Next
i = i + 1
End If
y1.MoveNext
Loop
End Sub

bbfit

我不懂vba, 我在B表中，加了格按钮控件，宏指向fig8 ,但运行是报错

figfig

Sub fig8()
Set x = CreateObject("ADODB.CONNECTION")
x.Open = "Provider = MSDataShape;data provider=microsoft.jet.oledb.4.0;EXTENDED PROPERTIES='EXCEL 8.0;HDR=yes;imex=1;';data source=" & ThisWorkbook.FullName
Set y1 = x.Execute(" shape {select * from [SHEET1$b2:g888] } append ({select * from [excel 8.0;hdr=yes;database=" & ThisWorkbook.Path & "\a.xls].[sheet1$b2:f888]} relate ID号 to ID号 ,金额 to 金额 ) as dd")
i = 2
Sheet3.Activate
Do While Not y1.EOF
Set y3 = y1!dd.Value
If y3.EOF Then
For j = 0 To y1.fields.Count - 2
kk = IIf(IsNull(y1.fields(j)), "", y1.fields(j))
Cells(i, j + 1) = kk
Next
i = i + 1
End If
y1.MoveNext
Loop
End Sub

[ 本帖最后由 figfig 于 2008-12-10 00:26 编辑 ]

itxianfeng

替楼主谢谢figfig

我运行了一下，程序运行正常

[ 本帖最后由 itxianfeng 于 2008-12-10 14:57 编辑 ]

bbfit

非常感谢figfig的回应, 这两天工作太忙,还没有自己测试,
周末一定试试,
也感谢楼上所有的热心人