条件匹配

1643688477

条件源表13的B列，将d,e列的值匹配至表11的f,g列。我一次性匹配两列值出现错误，不得不写两次字典。不知道有没有更加简捷的代码能否实现。求代码，谢谢。

ykcbf1100

附件供参考。。。

limonet

代码审核中。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select b.编码,b.规格 from [A$]a left join [excel 12.0;database=" & ThisWorkbook.Path & "\13.xlsx].[Sheet1$]b ON a.物料=b.物料编码"
    Range("F2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

沈默00

SQL代码简洁，

1643688477

ykcbf1100 发表于 2023-7-2 21:32
附件供参考。。。

感谢帮助。

1643688477

limonet 发表于 2023-7-2 21:51
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")

还要消化一下。