VBA简单实现两个Excel文件的比较方法

　　到财务走了一圈，正好看到一位同事正在对两个Excel文件进行比较。两个文件的内容大致如此（列出部分列名）：

主贷身份证	主贷人	贷款余额
440602****	李*瑜	￥35,000
360102****	李*亮	￥81,359
440202****	李*英	￥48,125
440682****	白*娟	￥1117,50

　　财务同事的需求是：找出两个表中贷款人身份证一样，但贷款余额不一致的数据。因量比较大，手工去找余额不一致相当麻烦。对财务人员来说可能经常会碰到这样的问题，痛苦！我第一反应是要给她想个办法，简单处理这种繁琐的工作。于时随手写了以下VBA来实现。

　　第一步，先将要核对的两个文件放到一个文件中，一个放在Sheet1,另一个放在Sheet2中。

　　第二步，加个按钮，写以下VBA事件：

Private Sub CommandButton1_Click()
  Dim objCon, objDataSet, sqlStr
  Set objCon = CreateObject("ADODB.Connection")
  Set objDataSet = CreateObject("adodb.recordset")
  objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1;';Data Source=" & ThisWorkbook.FullName

  sqlStr = "select a.*  from [Sheet1$] a left join [Sheet2$] b on (a.[主贷身份证]=b.[主贷身份证]) where a.[贷款余额]<>b.[贷款余额]"
  Set objDataSet = objCon.Execute(sqlStr)

  Sheet1.[e1:g1000].ClearContents '清除这个区域
  Sheet1.[e1].CopyFromRecordset objDataSet　'将不致的写到E列
  objDataSet.Close
  objCon.Close
  Set objDataSet = Nothing
  Set objCon = Nothing
End Sub

　　按下按钮，不一致的数据全部找了出来。需求和解决办法虽简单，但可以帮助到很多不懂VBA的朋友，供参考。

评论

3 楼 掌上明珠 2014-11-06  

2 楼 mossmouser 2010-06-13  

哈哈，刚好用到类似的这样功能。谢谢分享

1 楼 baizi17 2008-06-27  

你好。
请你尊重别人，不要随便透露别人的贷款信息！也许你是无心的，但已经给我造成了一定的麻烦。
谢谢。