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