工作薄间的引用问题

沉默加速度

向高手求教：

希望实现如下功能：在B工作薄中查找A工作薄中的商家，找到后，把押金项目与金额引过来；一个商家可能有好几个押金项目；如果未找到商家，押金项目与金额返回无

（B工作薄放在D盘下、A工作薄不确定，请看附件 向高手请教.zip (81.98 KB, 下载次数: 3)

2014-4-30 16:45 上传

点击文件名下载附件

）

用函数或者VBA实现，谢谢！

liulang0808

论坛上类似的问题有很多吧
代码放在A文件里，遍历查找吧

zhaogang1960

ADO法请参考：

1. Sub 宏1()
   
2.     Dim cnn As Object, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.Path & "\B.xlsx"
   
5.     SQL = "Select iif(isnull(押金项目),'无',押金项目),iif(isnull(金额),'无',金额) from [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[Sheet1$a2:a3] a left join [Sheet1$] b on a.商家=b.结算单位名称"
   
6.     [d1].CurrentRegion.Offset(2).ClearContents
   
7.     [d3].CopyFromRecordset cnn.Execute(SQL)
   
8.     cnn.Close
   
9.     Set cnn = Nothing
   
10. End Sub
    

复制代码

zhaogang1960

请测试附件
向高手请教.rar (167.49 KB, 下载次数: 5)

2014-4-30 17:08 上传

点击文件名下载附件

沉默加速度

非常感谢！是我想要的结果！

沉默加速度

zhaogang1960 发表于 2014-4-30 17:09
请测试附件

你好！谢谢你帮我解决问题!用你的代码我研究了好几天，还是无法到我想要的结果，麻烦你帮我优化一下！谢谢！

你好！接上面的问题，还是工作薄B、工作薄A有所调整，有几个细节麻烦优化一下：1、工作薄A中工作表的名称不确定，需要动态确定按钮所在的工作表的名称，因为一个工作薄中有很多个工作表，都需要这个按钮功能；2、工作薄A中，需要查找的商家名称固定在每个工作表的D5单元格；3、 在工作薄B中查到信息填写在按钮所在工作表G列最后一个非空单元格（黄底区域）上移8行，右移1列开始填写，如果工作薄B中找不到这个商家，则返回无；4、在填写第3点返回的信息前，请先清空按钮所在工作表G列最后一个非空单元格上移8行、右移1列到上移3行、右移2列的区域（即灰色区域）。（PS：工作薄B 放在E盘下，工作薄A位置不固定，工作薄B如果有默认打开密码，如：123，能否用代码打开，并实现上述功能！）

麻烦了，您几分钟时间，可能会解决我需要几个小时都完成不了的做！谢谢！ 请教高手2.zip (53.46 KB, 下载次数: 0)

2014-5-6 14:18 上传

点击文件名下载附件

LMY123

SQL = "Select iif(isnull(押金项目),'无',押金项目),iif(isnull(金额),'无',金额) from [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[Sheet1$a2:a3] a left join [Sheet1$] b on a.商家=b.结算单位名称"