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