VBA 遍历文件夹下所有文件

VBA（Visual Basic for Applications）是微软Office应用程序（如Excel、Word等）内置的一种宏语言，可以用来自动化任务。遍历文件夹下的所有文件通常通过`Folder`对象及其相关方法来完成。以下是一个简单的例子，展示如何在VBA中遍历指定文件夹并列出其内容：

Sub ListFilesInFolder()
    Dim objFSO As Object ' FileSystemObject用于操作文件系统
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Dim objFolder As Object ' 代表特定文件夹
    Dim objFile As Object ' 代表单个文件
    Dim strFolderPath As String ' 要遍历的文件夹路径
    
    ' 替换 "C:\YourFolderPath" 为实际的文件夹路径
    strFolderPath = "C:\YourFolderPath"
    
    On Error Resume Next ' 捕获可能出现的错误
    Set objFolder = objFSO.GetFolder(strFolderPath)
    
    If Not objFolder Is Nothing Then ' 如果文件夹存在
        For Each objFile In objFolder.Files
            Debug.Print objFile.Name ' 输出文件名
        Next objFile
        
        If Err.Number <> 0 Then ' 如果有错误发生
            MsgBox "Error occurred while listing files: " & Err.Description
            Err.Clear ' 清除错误
        End If
    Else
        MsgBox "Folder not found at " & strFolderPath
    End If
    
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub

在这个脚本中，我们首先创建了一个`FileSystemObject`实例，然后获取了指定路径的文件夹。接着使用`Files`集合来迭代文件夹中的每个文件，并打印出它们的名称。