vba遍历文件夹中的excel

在VBA中遍历文件夹中的Excel文件可以通过使用FileSystemObject对象来实现。首先，你需要引用Microsoft Scripting Runtime库，然后使用下面的代码：

Sub 遍历文件夹中的Excel()
    Dim FSO As Object
    Dim folderPath As String
    Dim folder As Object
    Dim file As Object
    Dim wb As Workbook
    
    ' 设置文件夹路径
    folderPath = "你的文件夹路径"
    
    ' 创建FileSystemObject对象
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Set folder = FSO.GetFolder(folderPath)
    
    ' 遍历文件夹中的文件
    For Each file In folder.Files
        ' 检查文件类型是否为Excel文件
        If FSO.GetExtensionName(file.Name) = "xlsx" Or FSO.GetExtensionName(file.Name) = "xls" Then
            ' 打开Excel工作薄
            Set wb = Workbooks.Open(file.Path)
            
            ' 在这里添加你需要执行的操作
            ' ...
            
            ' 关闭并保存工作薄
            wb.Close SaveChanges:=True
        End If
    Next file
    
    ' 释放对象
    Set folder = Nothing
    Set file = Nothing
    Set FSO = Nothing
End Sub

上述代码使用了FileSystemObject对象来获取指定文件夹下的所有文件，并逐个打开并进行操作。你可以根据需要在"在这里添加你需要执行的操作"的部分进行相应的操作，比如修改文件名、读取数据等。记得在操作完成后关闭并保存工作薄。<span class="em">1</span><span class="em">2</span><span class="em">3</span>
#### 引用[.reference_title]
- *1* [【VBA、Excel】VBA遍历当前目录下指定类型的excel文件并复制文件内指定的内容到新表中](https://blog.csdn.net/weixin_38263568/article/details/73608719)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_1"}}] [.reference_item style="max-width: 33.333333333333336%"]
- *2* [VBA 收集 - 遍历文件夹中的文件所有 Excel 文件](https://blog.csdn.net/jx520/article/details/123764076)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_1"}}] [.reference_item style="max-width: 33.333333333333336%"]
- *3* [VBA批量遍历更改文件名.xlsm](https://download.csdn.net/download/baidu_19965419/12114230)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_1"}}] [.reference_item style="max-width: 33.333333333333336%"]
[ .reference_list ]