CSVファイル読込ダイアログ

    Target = Application.GetOpenFilename("CSVファイル,*.csv?")
    If Target = "False" Then
        MsgBox "ファイルが選択されていません。"
        Exit Sub
    End If