実際のところ 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