vba获取文件夹下所有工作簿内容

在VBA (Visual Basic for Applications) 中，你可以使用 `Microsoft Excel.Application.Workbooks.Open` 方法以及循环结构来遍历指定文件夹下的所有Excel工作簿并获取其内容。以下是一个基本的示例代码：

Sub GetFilesInFolder()
    Dim Fldr As Object ' 文件夹对象
    Dim Wkb As Workbook ' 工作簿对象
    Dim FileName As String ' 文件名字符串
    Dim MyPath As String ' 文件夹路径

    ' 设置文件夹路径
    MyPath = "C:\YourFolderPath" ' 请替换为你想要查找的工作簿所在的实际文件夹路径

    ' 创建文件夹对象
    Set Fldr = CreateObject("Scripting.FileSystemObject").GetFolder(MyPath)

    ' 遍历文件夹中的每个文件
    For Each FileName In Fldr.Files
        If Right(FileName.Name, 4) = ".xls" Or Right(FileName.Name, 5) = ".xlsx" Then ' 检查是否为Excel文件
            ' 打开工作簿
            Set Wkb = Workbooks.Open(FileName)
            
            ' 这里可以添加代码来操作工作簿的内容，例如读取工作表数据、修改信息等
            ' 示例：如果需要读取第一个工作表的数据
            Dim ws As Worksheet
            Set ws = Wkb.Sheets(1)
            Debug.Print ws.Cells(1, 1).Value ' 打印单元格A1的内容
            
            ' 关闭工作簿，释放资源
            Wkb.Close SaveChanges:=False ' 如果不需要保存改动，则设置SaveChanges为False
        End If
    Next FileName
    
    ' 清理变量
    Set Wkb = Nothing
    Set Fldr = Nothing
End Sub