ファイルダイアログを使う-シングル選択に制限するとき

Option Explicit

Sub CopyFilesUsingDialog_SingleSelect()
'ファイルダイアログを使うことのまとめ
'シングル選択に制限するとき

'シングル選択なので、stringでよい
Dim MySourceFile As String

MySourceFile = Application.GetOpenFilename( _
        filefilter:="マイクロソフトExcelファイル,*.xlsx;", _
        Title:="ファイルをひとつ選択してください。", _
        MultiSelect:=False)

'キャンセルボタンが押されたとき、"False"がかえってくるので
If MySourceFile = "False" Then
  Debug.Print "Cancelled"
Else
        Debug.Print MySourceFile & " SELECTED"
End If

End Sub