自动选择带有筛选器的文件夹中的所有文件(不使用Application.GetOpenFileName的替代方案)

Sub SelectFilesInFolder()
    Dim folderPath As String
    Dim selectedFiles() As String
    Dim fileIndex As Integer
    Dim fileType As String
    Dim fileName As String
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Folder"
    
    ' 设置文件类型筛选器
    fileType = "*.xlsx" ' 例如，只选择扩展名为xlsx的文件
    
    ' 获取文件夹中的所有文件
    fileName = Dir(folderPath & "\" & fileType)
    fileIndex = 0
    
    Do While fileName <> ""
        ' 将文件路径添加到数组中
        ReDim Preserve selectedFiles(fileIndex)
        selectedFiles(fileIndex) = folderPath & "\" & fileName
        
        ' 获取下一个文件
        fileName = Dir
        fileIndex = fileIndex + 1
    Loop
    
    ' 输出选择的文件路径
    For fileIndex = LBound(selectedFiles) To UBound(selectedFiles)
        Debug.Print selectedFiles(fileIndex)
    Next fileIndex
End Sub