VBA TIPS - ファイル選択ダイアログの利用

    Dim fname As String

    ' ダイアログを表示してファイル名を取得
    fname = Application.GetOpenFilename("Microsoft Excel ﾌﾞｯｸ(*.xls), *.xls,すべてのファイル(*.*), *.*")
    ' キャンセルが選ばれた場合
    If fname = "False" Then
        MsgBox "処理を中止します", vbOKOnly + vbExclamation, "処理中止"
        End
    End If

    ' ファイルを開く
    Workbooks.Open(fname)