请教老师：选择多个文件后错误，谢谢！

qdzbk

Sub SelectMultipleFiles()  
    Dim fd As FileDialog
    Dim selectedFiles As Variant
    Dim filePath As String
    Dim i As Integer
    Set fd = Application.FileDialog(msoFileDialogFilePicker)    ' 创建一个文件对话框
    With fd
        .AllowMultiSelect = True   ' 设置允许多选
        .Filters.Clear ' 清除所有过滤器
        .Filters.Add "All Files", "*.*", 1 ' 添加一个过滤器，显示所有文件
        If .Show = -1 Then        ' 显示对话框并检查用户是否点击了“确定”按钮
            selectedFiles = .SelectedItems            ' 获取所有选中的文件路径
            For i = LBound(selectedFiles) To UBound(selectedFiles)       ' 遍历所有选中的文件并处理它们
                filePath = selectedFiles(i)
            Next i
        End If
    End With
    Set fd = Nothing
End Sub

lcluck2002

替你看了一下帮助，里面有介绍如何遍历 FileDialog.SelectedItems中的所有元素：
https://learn.microsoft.com/zh-c ... 26l%3Dzh-CN%26k%3Dk(vbaof11.chm256009)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

quqiyuan

多选用for each遍历

qdzbk

quqiyuan 发表于 2025-3-14 22:55
多选用for each遍历

修改后已解决。谢谢回复！