COPY

Option Explicit

    Const msoFileDialogOpen = 1
    Dim xlApp, MyPath,OpenFileName, Fso

    '実行中のスクリプトのフォルダーのパスを取得します
    Set Fso = CreateObject("Scripting.FileSystemObject")
    MyPath = Fso.getParentFolderName(WScript.ScriptFullName)
    Set Fso = Nothing

    'エクセルのオブジェクトを取得します
    Set xlApp = CreateObject("Excel.Application")
    With xlApp 
        With .FileDialog(msoFileDialogOpen)

            'ダイアログ ボックスに最初に表示されるパス
            .InitialFileName = MyPath & "\"

            'ダイアログ ボックスから
            '複数のファイルを選択できるようにする場合、Trueにします
            .AllowMultiSelect = False

            'コレクションをクリアします
            .Filters.Clear

            'コレクションに加えます
            .Filters.Add "テキストファイル" ,"*.csv"
            .Filters.Add "すべてのファイル" ,"*.*"

            '既定ファイル フィルターを設定します
            '既定のフィルターは、ダイアログ ボックスを最初に開いたときに
            'ファイルの種類が表示されます
            .FilterIndex = 1

            'ダイアログボックスのタイトルを設定します
            .Title = "ファイルの選択"

            'ダイアログボックスの動作設定ボタンに表示されるテキストを設定します
            .ButtonName = "開く"

            'ダイアログボックスを表示します
            If .Show = True Then
                'ダイアログ ボックスでユーザーが選択したファイルのパスの一覧から
                '1番目を取得します
                OpenFileName = .SelectedItems(1)
            Else
                OpenFileName = ""
            End If
        End With

        .Quit

    End With

    Set xlApp = Nothing

    If OpenFileName = "" Then
        MsgBox "キャンセルされました"
    End If