VBA Excel 选择文件 - 单击取消时，它会清除文本框

Question

基本上我有一个带有表格的电子表格。在该表单上有一个包含文件路径的文本框，该文件路径可以从工作表上的单元格中预先填充。但是用户可以选择浏览另一个文件。当他们浏览时，他们可以选择“打开”或“取消”。打开按钮可以正常工作并填充文本框，但如果他们选择取消它会清除文本框(如果它已被填充)。如何停止清除文本框？

我已将其范围缩小到发生这种情况的代码块:

Function GetFileName()

    Set MyFile = Application.FileDialog(msoFileDialogOpen)

    With MyFile
        .Title = "Choose File"
        .AllowMultiSelect = False

        If .Show <> -1 Then
            Exit Function
        End If
        GetFileName = .SelectedItems(1)
    End With

End Function

Answer 1

这成功了。在填充文本框之前确保文件名具有值

Private Sub btnBrowse_Click()

    Dim sFileName As String

    sFileName = GetFileName()

    If Len(sFileName) > 0 Then
        TextBox1.Value = sFileName
    End If

End Sub

Function GetFileName()

    Set MyFile = Application.FileDialog(msoFileDialogOpen)

    With MyFile
        .Title = "Choose File"
        .AllowMultiSelect = False

        If .Show <> -1 Then
            Exit Function
        End If
        GetFileName = .SelectedItems(1)
    End With

End Function