vba遍历文件夹下所有excel文件的表格内容

在VBA (Visual Basic for Applications) 中，你可以使用`Folder`对象和`File`对象来遍历指定文件夹下的Excel (.xls或.xlsx) 文件，并读取其中的工作表内容。以下是一个基本的步骤：

1. **设置工作环境**：
首先，在Excel VBA编辑器中创建一个新的模块，或者在已有的宏中添加代码。

2. **引用所需库**：
添加 `Microsoft Excel Objects` 和 `Microsoft Scripting Runtime` 引用，以便能够操作Excel和文件系统。

Option Explicit
Dim FSO As Object ' FileSystemObject
Dim oFolder As Object ' 对象表示文件夹
Dim oFile As Object ' 对象表示文件
Dim oWorkbook As Workbook ' 工作簿对象
Dim ws As Worksheet ' 工作表对象

3. **初始化对象**：
创建 `FSO` 对象来代表FileSystemObject，然后获取需要遍历的文件夹路径。

Set FSO = CreateObject("Scripting.FileSystemObject")
oFolder = FSO.GetFolder("C:\Your\Directory") ' 替换为实际文件夹路径

4. **遍历文件**：
使用 `Files` 属性获取文件夹内的所有Excel文件，并对每个文件进行处理。

For Each oFile In oFolder.Files
    If LCase(oFile.Extension) = ".xls" Or LCase(oFile.Extension) = ".xlsx" Then
        Set oWorkbook = Workbooks.Open(oFile.Path)
        
        ' 现在oWorkbook包含了打开的Excel文件
        For Each ws In oWorkbook.Worksheets
            ' 这里可以编写代码来读取和处理ws的内容
            Debug.Print ws.Name ' 只打印工作表名称作为示例
        Next ws
        
        oWorkbook.Close False ' 关闭工作簿，False参数保持修改
    End If
Next oFile

5. **结束遍历**：
当所有的文件都处理完毕后，清理对象并退出循环。

Set oWorkbook = Nothing
Set oFile = Nothing
Set oFolder = Nothing
Set FSO = Nothing