东风

zclzxm

Sub FileDialogExample12()
    Dim arr As Variant
    Dim itemCount As Integer
    Dim i As Integer
    Dim showResult As Integer

    With Application.FileDialog(msoFileDialogOpen)

        ' 显示对话框并获取结果
        showResult = .Show
        .AllowMultiSelect = True


        ' 检查用户是否点击了“打开”
        If showResult = -1 Then ' -1 通常表示用户点击了“打开”
            ' 获取选择的文件

            arr = .selectedItems

            ' 输出选择的文件路径
            For i = LBound(arr) To UBound(arr)
                Debug.Print arr(i)
            Next i

            ' 如果没有错误，则跳出错误处理程序

        Else
            ' 用户点击了“取消”或其他情况
            Debug.Print "No files selected."
        End If
    End With

  End Sub
请问为什么运行到 arr = .selectedItems这一步时显示“错误的参数号或无效的属性赋值“”的提示呢？