通过userform关闭资源管理器窗口时出错

Question

我的用户表单上的某个功能有一个小问题。如果用户单击“浏览”按钮但在选择文件后未单击“打开”按钮，而是关闭窗口或选择“取消”，则运行时错误“5”：无效的过程调用或参数显示。

理想情况下，如果用户关闭窗口或选择“取消”，我希望用户返回到表单。我知道我错过了一些代码，但不知道应该去哪些或哪里。以下是我的代码;

Private Sub CommandButtonPicture_File_Browse_Click()

    Dim FindFile As Office.FileDialog
    Dim FoundFile As Variant

    Set FindFile = Application.FileDialog(msoFileDialogOpen)

    With FindFile

        .Filters.Clear
        .Filters.Add "Jpegs", "*.jpg;*.jpeg*"
        .Filters.Add "Png", "*.png*"
        .Filters.Add "Gif", "*.gif*"
        .Filters.Add "Bitmaps", "*.bmp*"
        .Filters.Add "PDF", "*.pdf*"
        .Filters.Add "All Files", "*.*"

        .AllowMultiSelect = False


        If .Show = True Then
         TextBoxPicture_File_Link.Value = .SelectedItems(1)
        End If
        Me.TextBoxPicture_File_Link = .SelectedItems(1)

    End With

End Sub

请注意，代码目前有效，它会将文件链接添加到文本框中，这只是上面讨论的问题。