数据量比较大，想用VBA实现数据比对，请老师帮忙！

danhanqing · 发表于 2017-5-23 09:09

jjj2123456? 发表于 2017-5-23 07:42
问题不清楚zax010老师您也不好下手

我的问题说得还不清楚？呜呜……

jjj2123456? · 发表于 2017-5-23 11:24

danhanqing 发表于 2017-5-23 09:09
我的问题说得还不清楚？呜呜……

zax010老师数据对比是高手，你要是表示清楚，问题早就解决了。

香川群子 · 发表于 2017-5-23 13:56

居然没人下载附件。所以我也继续路过……哈哈。

danhanqing · 发表于 2017-5-23 13:57

是哟，居然附件都没人下……

jjj2123456? · 发表于 2017-5-23 14:23

danhanqing 发表于 2017-5-23 13:57
是哟，居然附件都没人下……

怪了，我都下载过附件，居然显示一次都没有下载过

zard2004 · 发表于 2017-5-23 14:45

问题好像不难，等大神的代码

grf1973 · 发表于 2017-5-23 15:32

Sub test5()
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" & ThisWorkbook.FullName
总表 = "[" & ThisWorkbook.Path & "\社保总表.xls].[sheet1$a2:r] a"
报送表 = "[" & ThisWorkbook.Path & "\社区报送表.xls].[sheet1$a2:r] b"
Sql = "select b.* from " & 报送表 & " where b.身份证号 not in (select a.身份证号 from " & 总表 & ")" '报送表中新增
Sql = Sql & " union all select b.* from " & 报送表 & "," & 总表 & " where b.身份证号 = a.身份证号 and " _
& "(a.姓名<>b.姓名 or a.出生年月<>b.出生年月 or a.性别<>b.性别 or " _
& "a.学历<>b.学历 or a.籍贯<>b.籍贯 or a.工作单位<>b.工作单位 or a.成员关系<>b.成员关系 or " _
& "a.政治面貌<>b.政治面貌 or a.婚姻状况<>b.婚姻状况 or a.参保日期<>b.参保日期 or a.参保种类<>b.参保种类 or " _
& "a.缴费情况<>b.缴费情况 or a.报销比例<>b.报销比例 or a.所属社区<>b.所属社区 or a.缴费类别<>b.缴费类别 or " _
& " a.是否在世<>b.是否在世 or a.审核结果<>b.审核结果 )" '报送表中和总表中身份证相同，其他有不同
rst.Open Sql, cnn, 1, 3
[a3].CopyFromRecordset rst
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
End Sub

复制代码

grf1973 · 发表于 2017-5-23 15:33

只显示报送表中不同或新增部分。

zax010 · 发表于 2017-5-23 15:48

我是第一时间下载并提问，距今好几天了，系统统计下载附件次数还是0，怪事。

具体方法就是蓝版在2楼说的，老老实实进行逐行逐列对比。

就是不清楚楼主要什么样的结果。

不灌水了，发一个我自己理解的结果，楼主能用则用，不能用，再请高手帮忙吧。

数据对比.rar (44.3 KB, 下载次数: 343)

jsgj2023 · 发表于 2017-5-23 16:05

最近论坛的附件不管是否有下载,统一显示为零?

		自动登录	找回密码
密码			免费注册

[已解决] 数据量比较大，想用VBA实现数据比对，请老师帮忙！