多选文件并输出

    Dim fd As Object

    Dim vrtSelectedItem As Variant

 

    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    

    With fd

        .AllowMultiSelect = True

        .Filters.Clear

        .InitialFileName = '默认路径'

        If .Show = -1 Then

            For Each vrtSelectedItem In .SelectedItems

                msgbox vrtSelectedItem

            Next

        End If

    End With

    Set fd = Nothing