VBAでダイアログを出しファイル名をセルに入力

実際のところ

Private Sub CommandButton1_Click()

fileToOpen = Application.GetOpenFilename("不正はなかった, *.txt")
If fileToOpen <> False Then
 MsgBox "Open " & fileToOpen
 Range("A2") = fileToOpen
End If

End Sub

参考もと

docs.microsoft.com