数据量20多万条，vlookup匹配卡死，求根据本表一字段取另一工作簿相应字段到本表，...

nn_gyb

limonet 发表于 2024-3-13 11:06
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")

再请教一下大神，我改了一下两条语句，为啥就出错了，烦请帮我看下问题所在：
StrSQL = "update  [Sheet1$]a Left Join [Excel 12.0;DataBase=" & ThisWorkbook.Path & "\公司员工总表 .xlsx].[Sheet1$]b On a.身份证号=b.身份证号 set a.联系电话=b.联系电话"
    Cn.Execute(StrSQL)

ykcbf1100

参与一下，字典+数组经典用法。

ykcbf1100

参与一下，字典+数组法

1. Sub ykcbf()   '//2024.3.14
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
5.     p = ThisWorkbook.Path
   
6.     f = p & "\公司员工总表 .xlsx"
   
7.     Set wb = Workbooks.Open(f, 0)
   
8.     With wb.Sheets(1)
   
9.         arr = .UsedRange
   
10.         wb.Close False
    
11.     End With
    
12.     For i = 2 To UBound(arr)
    
13.         s = CStr(arr(i, 3))
    
14.         d(s) = arr(i, 4)
    
15.     Next
    
16.     With sh
    
17.         r = .Cells(Rows.Count, 3).End(3).Row
    
18.         arr = .Range("a1").Resize(r, 4)
    
19.         For i = 2 To UBound(arr)
    
20.             s = CStr(arr(i, 3))
    
21.             arr(i, 4) = d(s)
    
22.         Next
    
23.         .Range("a1").Resize(r, 4) = arr
    
24.     End With
    
25.     Set d = Nothing
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "OK！"
    
28. End Sub
    
29. 
    

复制代码

david_jiao

dy83797465268 发表于 2024-3-14 11:18
img]

这种方式比较好，值得学习！

limonet

nn_gyb 发表于 2024-3-14 15:14
再请教一下大神，我改了一下两条语句，为啥就出错了，烦请帮我看下问题所在：
StrSQL = "update  [Sheet ...

你要"update“哪一列？