WindowsのAPIに「GetSaveFileName」が有ります。これを使えば可能です。 (Declaration)に記述 ＊＊＊＊＊＊＊＊ 構造体定義 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Type SAVEFILENAME lStructSize As Long '構造体の長さ hwndOwner As Long 'ｳｲﾝﾄﾞｳのﾊﾝﾄﾞﾙ(親ｳｲﾝﾄﾞｳがない時はNULL<0>をｾｯﾄ) hInstance As Long 'lpTemplateNameで指定されたﾀﾞｲｱﾛｸﾞﾃﾝﾌﾟﾚｰﾄが入っている 'ﾓｼﾞｭｰﾙのｲﾝｽﾀﾝｽﾊﾝﾄﾞﾙ lpstrFilter As String 'ﾌｨﾙﾀ文字列のﾍﾟｱが格納されているﾊﾞｯﾌｧへのﾎﾟｲﾝﾀ lpstrCustomFilter As String 'ﾕｰｻﾞｰ定義のﾌｨﾙﾀ文字列のﾍﾟｱが格納されているﾊﾞｯﾌｧへのﾎﾟｲﾝﾀ nMaxCustFilter As Long 'lpstrCustomFilterで指定されたﾊﾞｯﾌｧｻｲｽﾞ（文字数） nFilterIndex As Long 'lpstrFilterが指すﾊﾞｯﾌｧに格納するｲﾝﾃﾞｯｸｽ lpstrFile As String 'ﾌｧｲﾙ名の初期値の文字列のﾎﾟｲﾝﾀ nMaxFile As Long 'lpstrFileが指すﾊﾞｯﾌｧ(文字数) lpstrFileTitle As String '選択されたﾌｧｲﾙのﾀｲﾄﾙを受け取るﾊﾞｯﾌｧのﾎﾟｲﾝﾀ nMaxFileTitle As Long 'lpstrFileTitleで指定されたﾊﾞｯﾌｧにｺﾋﾟｰできる文字列の最大長 lpstrInitialDir As String '初期ﾌｧｲﾙﾃﾞｨﾚｸﾄﾘを指定する文字列ﾎﾟｲﾝﾀ lpstrTitle As String 'ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽのﾀｲﾄﾙﾊﾞｰの表示する文字列のﾎﾟｲﾝﾀ '(NULLの場合[ﾌｧｲﾙ名を付けて保存]) flags As Long 'ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽ作成ﾌﾗｸﾞ nFileOffset As Integer 'lpstrFileが指す文字列内におけるﾊﾟｽの先頭からﾌｧｲﾙ名までの 'ｾﾞﾛから数えたｵﾌｾｯﾄ nFileExtension As Integer 'lpstrFileが指す文字列内におけるﾊﾟｽの先頭からﾌｧｲﾙ名拡張子 'までのｾﾞﾛから数えたｵﾌｾｯﾄ lpstrDefExt As String 'ﾃﾞﾌｫﾙﾄの拡張子が格納されるﾊﾞｯﾌｧのﾎﾟｲﾝﾀ lCustData As Long 'OSがlpfnHookで指定されたﾌｯｸ関数に渡すｱﾌﾟﾘｹｰｼｮﾝ定義のﾃﾞｰﾀ lpfnHook As Long '本来はﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽに送られるﾒｯｾｰｼﾞを処理するﾌｯｸ関数のﾎﾟｲﾝﾀ lpTemplateName As String '標準ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽﾃﾝﾌﾟﾚｰﾄの代わりとして使用するﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽに '名前を付けるNULLで終わる文字列のﾎﾟｲﾝﾀ End Type ＊＊＊＊＊＊＊＊ 関数を作成 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Function FileNameSelect() As String Dim sfn As SAVEFILENAME sfn.lStructSize = Len( sfn ) sfn.hwndOwner = 0 sfn.hInstance = 0 sfn.lpstrFilter = "CSV Files(*.csv)" & Chr$(0) & "*.csv" & Chr$(0) & "All Files(*.*)" & Chr$(0) & "*.*" & Chr$(0) & Chr$(0) sfn.lpstrCustomFilter = "" sfn.nMaxCustFilter = 0 sfn.nFilterIndex = 0 'sfn.lpstrFile = String$( 255, Chr$(0) ) '選択したファイル名（フルパス）が保存される sfn.lpstrFile = "C:\TenjiDat.csv" '選択したファイル名（フルパス）が保存される sfn.nMaxFile = 256 sfn.lpstrFileTitle = String$( 255, Chr$(0) ) sfn.nMaxFileTitle = 256 sfn.lpstrInitialDir = "" sfn.lpstrTitle = "" 'ウィンドウタイトル sfn.Flags = 0 sfn.nFileOffset = 0 sfn.nFileExtension = 0 'sfn.lpstrDefExt = "" sfn.lpstrDefExt = "csv" '拡張子を入力しない時は"xxx.csv"になる sfn.lCustData = 0 sfn.lpfnHook = 0 sfn.lpTemplateName = "" If GetSaveFileName( sfn ) Then 'ダイアログを表示（キャンセルするとFalseが返る） FileNameSelect = sfn.lpstrFile Else FileNameSelect = "" End If End Function