Question

每次我尝试只选择一个文件但我有.AlloMultiSelect = True有一条错误消息说：运行时错误'5'：无效的过程调用或参数并突出显示“strPathAndSparks = .SelectedItems（2）” 。所以我的问题是，如果我可以启用多选并只选择一个文件，如果是这样，我在这行代码中的错误在哪里。这就是我所拥有的。我提前感谢你们。

 strInitialDirectory = CurDir
 Set fd = Application.FileDialog(msoFileDialogFilePicker)

 With fd
    .Title = "Choose Jira File"
    .InitialFileName = CurDir & "\"
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsm"

    If .Show = False Then
        ChDir (strInitialDirectory)
        Exit Sub
    End If

        strPathAndJira = .SelectedItems(1)
        strPathAndSparks = .SelectedItems(2)
 End With

Answer 1

如果用户选择1个或更少的项目，则会发生错误。您不能强迫用户选择2个项目，但您可以使用

测试选择的项目数量

fd.SelectedItems.Count

无效的过程调用或参数vba。运行时错误5

1 个答案: