提取不同目录下符合某条件的工作簿中指定单元格数据

xopo

提取不同目录下符合某条件的工作簿中指定单元格数据：需要从多个不同的文件夹下的文件名包含bs的文件中提取外汇总价和进货总价的数据，文件夹的名字已经提取到汇总的表格中，想在汇总的表格中提取到对应的数据，求大侠指教如何编写VB代码。
ps：上传附件错误521，所以只能用文字描述了。
汇总表示这样的：

合同号	外汇总价	进货总价
217ARIN001
217EAKI043_13
217EKYD001
218ALVA001
218ALVA002

文件夹目录是：
217ARIN001
217EAKI043_13
...
文件夹下有好几个文件，有文件名包含BS的，有不包含BS的，我就想取包含BS的文件里特定单元格内容。
不知道我这样描述，大家能看懂吗？
file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\88150550\QQ\WinTemp\RichOle\})EZ{)4H3BWA~1V2(SK~C3T.png

lsc900707

论坛异常，可以多试几次，没有附件的话很难有满意的解答。

xopo

附件上传成功了，求大侠帮忙，在线等！

xopo

lsc900707 发表于 2018-7-26 10:38
论坛异常，可以多试几次，没有附件的话很难有满意的解答。

附件在3楼了，求大侠帮忙，在线等

xopo

朱荣兴 发表于 2018-7-26 13:15
参考》》》》》》》》》》》
Sub huizong()
Set Sh = ThisWorkbook.Worksheets(1)

非常感谢大侠的帮助，在test几个数据中运行相当正确，但是在实际的多的里面就产生错误了。下标越界。不知道怎么回事呢?急盼回复。