SQL跨工作簿匹配待修改

APPLE123

fzxba 发表于 2022-12-16 13:55
Sub test()
  Dim f$
  'f = ThisWorkbook.Path & Application.PathSeparator & "1.xlsx"   '指定工作簿
...

您好！请教一下老师，如果数据源“2.xlsx”的字段名称增加字母“YSJ”，“跨工作簿匹配待修改.xlsm”的字段名称增加字母“MB”，也就是说，2个工作簿的字段名称不完全一样，其他条件不变，请问老师，又该如何修改代码呢？
麻烦老师了，谢谢！

APPLE123

sdytsxd991122 发表于 2022-12-16 14:07

再请教一下老师，如果数据源“2.xlsx”的字段名称增加字母“YSJ”，“跨工作簿匹配待修改.xlsm”的字段名称增加字母“MB”，也就是说，2个工作簿的字段名称不完全一样，其他条件不变，请问老师，又该如何修改代码呢？
麻烦老师了，谢谢！

fzxba

APPLE123 发表于 2022-12-17 10:24
您好！请教一下老师，如果数据源“2.xlsx”的字段名称增加字母“YSJ”，“跨工作簿匹配待修改.xlsm”的字 ...

1. SQL = "[" & ActiveSheet.Name & "$F3:F" & Cells(Rows.Count, "F").End(xlUp).Row & "]"
   
2. SQL = "SELECT a.商品编号MB,b.商品名称YSJ AS 商品名称MB,b.商品规格YSJ AS 商品规格MB,b.生产企业YSJ AS 生产企业MB,b.批准文号YSJ AS 批准文号MB FROM" & SQL & " a LEFT JOIN [Excel 12.0;Database=" & f & "].[$A2:H] b ON a.商品编号MB=b.商品名称YSJ"
   
3. 从图片看，这样应该行：
   
4. SQL = "[" & ActiveSheet.Name & "$F3:F" & Cells(Rows.Count, "F").End(xlUp).Row & "]"
   
5. SQL = "SELECT 商品编号MB,商品名称YSJ AS 商品名称MB,商品规格YSJ AS 商品规格MB,生产企业YSJ AS 生产企业MB,批准文号YSJ AS 批准文号MB FROM" & SQL & " a LEFT JOIN [Excel 12.0;Database=" & f & "].[$A2:H] b ON 商品编号MB=商品名称YSJ"

复制代码

APPLE123

fzxba 发表于 2022-12-17 11:58

谢谢老师指点

APPLE123

sdytsxd991122 发表于 2022-12-16 14:07

恳请老师移步这里帮忙看看
https://club.excelhome.net/thread-1649514-1-1.html
谢谢！

cai2532

这个好，不错，学习了。