请高手帮忙编写EXCEL VBA程序，跨工作簿查询并返回数据

Private Const DirPath$ = "C:\" '指向查找的路径
Sub aa()
Dim Filename$
Dim i&
Dim Wb As Workbook, Rng As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
With Worksheets("总表")
For i = 1 To .[B65536].End(3).Row
If Len(.Cells(i, 2)) <> 0 Then
Filename = DirPath & "" & .Cells(i, "B") & ".xls"
If Len(Dir(Filename)) <> 0 Then
Set Wb = GetObject(Filename)
With Wb.Worksheets("材料")
If Err.Number <> 0 Then GoTo l
Set Rng = .[B:B].Find(what:="水泥砖")
If Not Rng Is Nothing Then
Worksheets("总表").Cells(i, "C") = Rng.Offset(0, 1).Value
End If
End With
l:
Wb.Close False
End If
End If
Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

这个你为什么要用VBA哪 直接用公式不就行了吗？
用VBA 只能一次有效 不如 使用函数 容易……
哈哈！公式 的用法 就是 你先把两个工作簿 都打开 然后 使用公式的时候 就像在同一个工作中的操作一样，只不过 你的数据引用 是 跨工作簿的 选取……
使用Vlookup 等查找函数就可以了……

你要得到具体的示例 你必须 叙述一下 你的工作簿数据排列 否则只能提示到此……

1. 如果使用 VLOOKUP 之类的函数的话比较方便，但是，必须明确把文件夹的位置信息写入公式中。

2. 如果使用 导入外部数据的方法，则许多工作表都要先导入，然后才能引用。而且自动更新是一个问题；

3. 使用 VBA 代码能够有针对性地解决问题，但是灵活性还是有限制的，安全性也是一个限制问题；

4. 既然数据都是惟一的，为什么不创建一个数据库，然后在 Excel 中使用一定的方法去调用数据库的数据呢？毕竟处理数据是 Excel 的强项，但数据库的管理是它的弱项。把两者结合起来才能充分发挥 Excel 的作用。