相同结构的两个表数据合并，相同关键字对应的值更新，不相同则追加

rkrkrk123 · 发表于 2021-12-11 16:25

各位大神好，
本有有一个问题困扰已久，一直没有成功。请各位看看如何实现：

有A、B两个表，抬头结构完全相同，以C列为关键字，用A表的数据来更新B表,
1、如果A表中C列的值与B表C列的值相同，则用A表对应的J列数据更新B表对应J列的值；
2、对于其他A表中C列的值其他的值（与B表C列的值都不相同），则整行追加到B表里面；

相当于将A表以C列为关键字覆盖更新到B表中，有相同的值则更新对应的值，没有的追加进来。
希望将代码放在单独的表中，运行后自动将更新的A表另存成C结果文件。

自己试了好久都没解决，请各位老师指点。
谢谢

rkrkrk123 · 发表于 2021-12-12 12:08

大神们啊，版主啊，给指点一下啊

xiangbaoan · 发表于 2021-12-12 17:18

Sub test1()
Dim p As String, f
Dim Cnn As Object, Rst As Object, Sql As String
Dim i As Long, ky As String, s As String, t As String
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 XML;Data Source=" & ThisWorkbook.FullName
Cells.Clear
p = ThisWorkbook.Path & "\"
f = Array("A.xlsx", "B.xlsx", "C.xlsx")
Set Rst = Cnn.Execute("SELECT * FROM [Excel 12.0;Database=" & p & f(1) & "].[$A1:J] WHERE FALSE")
For i = 0 To Rst.Fields.Count - 2
t = Rst.Fields(i).Name
s = s & "a." & t & ","
Range("A1").Offset(0, i) = t
If i = 2 Then ky = t
Next
t = Rst.Fields(i).Name
s = s & "b." & t
Range("A1").Offset(0, i) = t
Sql = "SELECT " & s & " FROM " & _
"[Excel 12.0;Database=" & p & f(1) & "].[$A1:J] a" & _
" LEFT JOIN " & _
"[Excel 12.0;Database=" & p & f(0) & "].[$A1:J] b" & _
" ON a." & t & "=b." & t
Set Rst = Cnn.Execute(Sql)
Range("A2").CopyFromRecordset Rst
Sql = "SELECT DISTINCT " & ky & " FROM [Excel 12.0;Database=" & p & f(1) & "].[$A1:J] WHERE LEN(" & ky & ")"
Sql = "SELECT * FROM [Excel 12.0;Database=" & p & f(0) & "].[$A1:J] WHERE " & ky & " NOT IN (" & Sql & ")"
Set Rst = Cnn.Execute(Sql)
Range("C65536").End(xlUp).Offset(1, -2).CopyFromRecordset Rst
If Dir(p & f(2)) <> "" Then Kill p & f(2)
Cnn.Execute "SELECT * INTO [" & p & f(2) & "].[Sheet1] FROM [" & ActiveSheet.Name & "$]"
Set Rst = Nothing
Cnn.Close
Set Cnn = Nothing
Beep
End Sub

复制代码

xiangbaoan · 发表于 2021-12-12 17:19

本帖最后由 xiangbaoan 于 2021-12-12 18:18 编辑

更新覆盖1.zip (43.15 KB, 下载次数: 5)

rkrkrk123 · 发表于 2021-12-12 17:42

本帖最后由 rkrkrk123 于 2021-12-12 17:58 编辑

xiangbaoan 发表于 2021-12-12 17:19

大佬你好，我刚才试了，不行啊结果只把A里面新增的C列对应的值查出来比如H9，但是并没有把其他的值查出来啊比如A1，A2，A3的J列值都为空，A1，A2，A3AB里面都有，应该是用A列值替换B的值，不应该为空。已改是

。

麻烦再看看啊

rkrkrk123 · 发表于 2021-12-12 18:05

xiangbaoan 发表于 2021-12-12 17:19

谢谢指点。但是结果不对啊，
只把A表里H9 对应J列的值查询出来了，A1、A2A3的J列都是空的啊，应该是用A表里A1、A2A3的J列的值替换掉B表里对应的值

xiangbaoan · 发表于 2021-12-12 18:16

rkrkrk123 发表于 2021-12-12 18:05
谢谢指点。但是结果不对啊，
只把A表里H9 对应J列的值查询出来了，A1、A2A3的J列都是空的啊，应该是用A ...

rkrkrk123 · 发表于 2021-12-12 18:28

xiangbaoan 发表于 2021-12-12 18:16

好的，谢谢。明天好好学习下。
另外，能否将结果J列的设置短日期格式，我不知道在哪调，我把ABJ列改为短日期了，但结果不是日期格式的，麻烦指点一下

xiangbaoan · 发表于 2021-12-12 18:35

rkrkrk123 发表于 2021-12-12 18:28
好的，谢谢。明天好好学习下。
另外，能否将结果J列的设置短日期格式，我不知道在哪调，我把ABJ列改为短 ...

1、2、3……这类数字我调不成的。

yf865471 · 发表于 2021-12-12 18:38

本来还想进修下vba调数据库的，现在我打消了这个念头

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

[原创] 相同结构的两个表数据合并，相同关键字对应的值更新，不相同则追加