跨工作簿匹配vba待修改

APPLE123

这是论坛老师写的代码，主要是使用SQL不打开数据源表的情况下核对提取对应数据，原本可以通过“商品编号”核对，提取“商品名称”、“商品规格”、“生产企业”、“批准文号”4列数据。
现在想请教一下老师，如果数据源“2.xlsx”的相关字段名称增加字母“Xin”，变成“商品编号Xin”、“商品名称Xin”、“商品规格Xin”、“生产企业Xin”、“批准文号Xin”；“跨工作簿匹配待修改.xlsm”的字段名称增加字母“NEW”，变成“商品编号NEW”、“商品名称NEW”、“商品规格NEW”、“生产企业NEW”、“批准文号NEW”。也就是说，2个工作簿的字段名称不完全一样，但原关联关系不变、其他条件也不变，请问老师，又该如何修改代码呢？
麻烦老师了，谢谢！

shiruiqiang

个人想法提取前4个字

APPLE123

shiruiqiang 发表于 2022-12-18 18:53
个人想法提取前4个字

请教老师，如何修改？麻烦老师看看，谢谢！

APPLE123

恳请老师帮帮忙

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.Path & "\2.xlsx"
    StrSQL = "select 商品名称Xin,商品规格Xin,生产企业Xin,批准文号Xin from [Sheet1$A2:H]a right JOIN [excel 12.0;database=" _
            & ThisWorkbook.FullName & "].[Sheet1$F3:j]b on b.商品编号NEW=a.商品编号Xin"
    Range("G4").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

APPLE123

limonet 发表于 2022-12-19 11:32
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")

谢谢老师！又学习了！
再请教老师一下，如果写成Sq(1)=、 Sq(2)=、 Sq(0)=
该如何修改？

APPLE123

走过路过的老师，恳请帮忙看一下，本例如果写成Sq(1)=、 Sq(2)=、 Sq(0)=
该如何修改？谢谢！

sdytsxd991122

APPLE123 发表于 2022-12-21 13:10
走过路过的老师，恳请帮忙看一下，本例如果写成Sq(1)=、 Sq(2)=、 Sq(0)=
该如何修改？谢谢！

APPLE123

sdytsxd991122 发表于 2022-12-21 14:52

谢谢老师的帮助！