Question

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

不好意思，不方便上传图

在一个文件夹中
有一个总表，B列中有许多“工程名称”；
并且每个”工程名称“在文件夹中都有对应同名称的工作簿；
而每个工作簿中有一个工作表为”材料“；
”材料“工作表中，B列中某单元格中有数据”水泥砖“（唯一）

要求：
根据总表中”工程名称“查找对应工作簿中的”材料“工作表”中”水泥砖“后面一列的数据，并返回到总表对应工程名称的后面。

可以了再追加悬赏，谢谢~
不用VBA也行呀
但是公式怎么用啊

Answer 1

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

Answer 2

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

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

Answer 3

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

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

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

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