保存するファイルのパスを取得する

  ファイルを保存する時のファイルのパスを取得する方法です。
  
  これはデフォルトでFileNameを設定しているのですが、ユーザーにファイルの名前を
  入力させています。
  
  それよりもフィルダのパスを取得して、FileName をプラスする方が、
  現実的なプログラムになるのかな？ っと思います。
  

Sub GetSaveAsFilePath()

    Dim FileNamePath                                As Variant
    Dim DefaultFileName                             As String
    Dim File種類                                    As String
    Dim Prompt                                      As String
    
    DefaultFileName = "test"
    File種類 = "Excelﾌｧｲﾙ,*.xls;*.xlsx;*.xlsm"
    Prompt = "Excelのファイルを選択してください"
    FileNamePath = SelecSaveastFileNamePath(DefaultFileName, File種類, Prompt)
    
    If FileNamePath = False Then
        'キャンセルボタンが押された
        Exit Sub
    End If

End Sub

Function SelecSaveastFileNamePath(DefaultFileName, File種類, Prompt)

    SelecSaveastFileNamePath = _
            Application.GetSaveAsFilename(DefaultFileName, File種類, , Prompt)

End Function

  StartKitsParts.xls をダウンロードして、ご使用ください。