2007-03-09

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的朋友，供参考。

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

您还没有登录，请登录后发表评论

SwiftHorse
搜索本博客
我的相册
34de9a49-87ab-31dd-9801-1ab70c5de586-thumb
期盼家人
共 5 张
存档
最新评论