在Excel中，VB（Visual Basic for Applications）是一种强大的编程工具，可以用来自动化各种任务，包括从多工作簿和多工作表中抓取单元格数据。本篇将详细讲解如何使用VB来实现这一功能。
我们需要了解VB的基本结构。VB是VBA（Visual Basic for Applications）的一部分，它是内嵌于Microsoft Office套件中的一种脚本语言，允许用户自定义工作流程，创建宏或编写模块来执行特定任务。在Excel中，我们可以通过按下“Alt + F11”打开VBA编辑器。
**步骤1：创建新模块**
在VBA编辑器中，选择“插入”菜单，然后点击“模块”，这将在项目浏览器中创建一个新的模块。模块是存储代码的地方。
**步骤2：编写代码**
在新创建的模块中，我们需要编写一个过程，比如Sub（子程序），用于遍历多个工作簿和工作表。以下是一个基本的示例：
```vba
Sub GrabDataFromMultipleWorkbooks()
Dim wb As Workbook
Dim ws As Worksheet
Dim cell As Range
Dim data As Variant
Dim filePath As String
Dim fileCount As Integer
'指定文件夹路径，包含所有待处理的工作簿
filePath = "C:\YourFilePath\"
'获取该路径下所有Excel文件
fileCount = Dir(filePath & "*.xlsx", vbNormal).Count
For i = 1 To fileCount
'打开每个工作簿
Set wb = Workbooks.Open(filePath & Dir())
'遍历每个工作表
For Each ws In wb.Worksheets
'假设我们抓取A1单元格的数据
Set cell = ws.Range("A1")
'将数据添加到数组
data = data & cell.Value & vbCrLf
Next ws
'关闭工作簿，但不保存更改
wb.Close SaveChanges:=False
Next i
'显示抓取的所有数据
MsgBox "抓取的数据：" & vbCrLf & data
End Sub
```
在这个例子中，我们遍历指定文件夹中的所有Excel文件（扩展名为.xlsx），然后对每个工作簿中的每个工作表进行迭代。在每个工作表中，我们选择了A1单元格并将其值添加到数据数组中。我们通过消息框显示所有抓取的数据。
**注意事项**：
1. 请确保替换`filePath = "C:\YourFilePath\"`为实际包含工作簿的文件夹路径。
2. `data = data & cell.Value & vbCrLf`这行代码将数据连接起来，并在每个单元格之间添加换行符。你可以根据需要调整这个部分以适应你的数据格式。
3. 为了防止错误，你可能需要加入错误处理代码，例如在打开或关闭工作簿时。
这个简单的示例演示了如何使用VB在Excel中实现自动化。实际应用中，你可以根据需求修改代码，例如选择不同的单元格范围、过滤数据、写入新的工作表或工作簿等。通过深入了解VBA，你将能够创建更复杂的解决方案，大大提升工作效率。
示例.7z （6个子文件） 
示例 
4.xlsx 12KB
产品汇总.xlsm 16KB
