在excel中用vba实现与sql数据库的数据比较

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在excel中用vba实现与sql数据库的数据比较相关的知识,希望对你有一定的参考价值。

先建立一个sheet通过数据页签中自其它来源,将数据库中的资料导入。然后再建立一个sheet通过数据页签中的现有连接,然后通过sql语句就可以比较那两个sheet中的内容了。以后直接点击刷新数据就可以了 参考技术A 我的方法是:
先在Excel里建立一个来自SQL的外部数据查询,把SQL的approve表的数据导入Excel中(一般建议根据“受理编号”升序排列),然后在用vlookup函数查找。
假设Excel中受理编号字段为第一列,从SQL导出来的数据放在H1开始的字段里,这函数为:
=vlookup(A1,H:J,2,FALSE)
则如果有重复就会返回重复编号右列的数据。
如果你想要其他列的数据,改一下比较区域,和列数就可以了

Excel中用宏VBA实现GBT 4761-2008 家庭关系代码转换

从某个系统导出数十万条数据,存在Excel表中,其中有个“与户主关系”字段,其值是一些数字代码,系统编制文档中说该字段是根据GBT 4761-2008 来编码的。数据用户想要把这些代码转换成对应的“家庭关系”,如代码02对应的 家庭关系是户主,用Excel中的替换功能来实施,由于其它字段的数据中也可能包含相同代码的内容,不是很方便。于是用宏VBA实现。

Sub replaceRelationWithOwner()

' 替换与户主关系
'数字在E列,从2行开始,Excel表格最大行数据是1048576
Range("E2:E1048576").Replace "01", "本人"
Range("E2:E1048576").Replace "02", "户主"
Range("E2:E1048576").Replace "10", "配偶"
Range("E2:E1048576").Replace "11", "夫"
Range("E2:E1048576").Replace "12", "妻"
Range("E2:E1048576").Replace "20", "子"
Range("E2:E1048576").Replace "21", "独生子"
Range("E2:E1048576").Replace "22", "长子"
Range("E2:E1048576").Replace "23", "次子"
Range("E2:E1048576").Replace "24", "三子"
Range("E2:E1048576").Replace "25", "四子"
Range("E2:E1048576").Replace "26", "五子"
Range("E2:E1048576").Replace "27", "养子或继子"
Range("E2:E1048576").Replace "28", "女婿"
Range("E2:E1048576").Replace "29", "其他儿子"
Range("E2:E1048576").Replace "30", "女"
Range("E2:E1048576").Replace "31", "独生女"
Range("E2:E1048576").Replace "32", "长女"
Range("E2:E1048576").Replace "33", "次女"
Range("E2:E1048576").Replace "34", "三女"
Range("E2:E1048576").Replace "35", "四女"
Range("E2:E1048576").Replace "36", "五女"
Range("E2:E1048576").Replace "37", "养女或继女"
Range("E2:E1048576").Replace "38", "儿媳"
Range("E2:E1048576").Replace "39", "其他女儿"
Range("E2:E1048576").Replace "40", "孙子、孙女或外孙子、外孙女"
Range("E2:E1048576").Replace "41", "孙子"
Range("E2:E1048576").Replace "42", "孙女"
Range("E2:E1048576").Replace "43", "外孙子"
Range("E2:E1048576").Replace "44", "外孙女"
Range("E2:E1048576").Replace "45", "孙媳妇或外孙媳妇"
Range("E2:E1048576").Replace "46", "孙女婿外孙女婿"
Range("E2:E1048576").Replace "47", "曾孙子或曾外孙子"
Range("E2:E1048576").Replace "48", "曾孙女或曾外孙女"
Range("E2:E1048576").Replace "49", "其他孙子、孙女或外孙子、外孙女"
Range("E2:E1048576").Replace "50", "父母"
Range("E2:E1048576").Replace "51", "父亲"
Range("E2:E1048576").Replace "52", "母亲"
Range("E2:E1048576").Replace "53", "公公"
Range("E2:E1048576").Replace "54", "婆婆"
Range("E2:E1048576").Replace "55", "岳父"
Range("E2:E1048576").Replace "56", "岳母"
Range("E2:E1048576").Replace "57", "继父或养父"
Range("E2:E1048576").Replace "58", "继母或养母"
Range("E2:E1048576").Replace "59", "其他父母关系"
Range("E2:E1048576").Replace "60", "祖父母或外祖父母"
Range("E2:E1048576").Replace "61", "祖父"
Range("E2:E1048576").Replace "62", "祖母"
Range("E2:E1048576").Replace "63", "外祖父"
Range("E2:E1048576").Replace "64", "外祖母"
Range("E2:E1048576").Replace "65", "配偶的祖父母或外祖父母"
Range("E2:E1048576").Replace "66", "曾祖父"
Range("E2:E1048576").Replace "67", "曾祖母"
Range("E2:E1048576").Replace "68", "配偶的曾祖父母或外曾祖父母"
Range("E2:E1048576").Replace "69", "其他祖父母或外祖父母关系"
Range("E2:E1048576").Replace "70", "兄弟姐妹"
Range("E2:E1048576").Replace "71", "兄"
Range("E2:E1048576").Replace "72", "嫂"
Range("E2:E1048576").Replace "73", "弟"
Range("E2:E1048576").Replace "74", "弟媳"
Range("E2:E1048576").Replace "75", "姐姐"
Range("E2:E1048576").Replace "76", "姐夫"
Range("E2:E1048576").Replace "77", "妹妹"
Range("E2:E1048576").Replace "78", "妹夫"
Range("E2:E1048576").Replace "79", "其他兄弟姐妹"
Range("E2:E1048576").Replace "80", "其他"
Range("E2:E1048576").Replace "81", "伯父"
Range("E2:E1048576").Replace "82", "伯母"
Range("E2:E1048576").Replace "83", "叔父"
Range("E2:E1048576").Replace "84", "婶母"
Range("E2:E1048576").Replace "85", "舅父"
Range("E2:E1048576").Replace "86", "舅母"
Range("E2:E1048576").Replace "87", "姨父"
Range("E2:E1048576").Replace "88", "姨母"
Range("E2:E1048576").Replace "89", "姑父"
Range("E2:E1048576").Replace "90", "姑母"
Range("E2:E1048576").Replace "91", "堂兄弟、堂姐妹"
Range("E2:E1048576").Replace "92", "表兄弟、表姐妹"
Range("E2:E1048576").Replace "93", "侄子"
Range("E2:E1048576").Replace "94", "侄女"
Range("E2:E1048576").Replace "95", "外甥"
Range("E2:E1048576").Replace "96", "外甥女"
Range("E2:E1048576").Replace "97", "其他亲属"
Range("E2:E1048576").Replace "99", "非亲属"
End Sub

以上是关于在excel中用vba实现与sql数据库的数据比较的主要内容,如果未能解决你的问题,请参考以下文章

Excel中用宏VBA实现GBT 4761-2008 家庭关系代码转换

EXCEL中用VBA复制整行

将excel中数据保存至另一个excel中用vba

在excel中,用VBA实现两列数据的比较

在EXCEL中用VBA怎样操作WORD文档中嵌入的EXCEL表格?

ACCESS中用VBA如何导入当前目录内的指定EXCEL