多选文件并输出

时　间:2017-07-06 09:28:41
作　者:易勋   ID：35404  城市：上海
摘　要:多选文件并输出选择的文件
正　文:

    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