名前を付けて保存におけるデフォルトの保存先をカレントディレクトリにする方法

Question

名前を付けて保存のダイアログボックスを表示するために以下のコードを記載したのですが
操作しているエクセルが\shared\hoge\fileと共有フォルダ内なのに、マイドキュメントが指定されてしまいます。これをカレントディレクトリである\shared\hoge\fileに指定（また共有でなくても、例えば、カレントディレクトリがdesktopであればdesktop）することができるのでしょうか？
宜しくお願い申しあげます。

Private Sub CommandButton2_Click()
    'ActiveWorkbook.Saved = True
     Dim FileName As Variant
    FileName = _
        Application.GetSaveAsFilename( _
             InitialFileName:=ThisWorkbook.Name _
           , FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm" _
           , FilterIndex:=1 _
           , Title:="保存先の指定" _
           )
    If FileName <> False Then
       Application.DisplayAlerts = False
       ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal
       Application.DisplayAlerts = True
    End If
    Unload Me
End Sub

Answer 1

InitialFilename をフルパスで指定してください。

Comments

[Zuishin]

たとえば C:\Users\UserName\Desktop に保存するには C:\Users\UserName\Desktop\無題.xlsx を与えてください。

[pegy]

コメントありがとうございます。
会社の複数のメンバーが共有して使うため、相対的にディレクトリを取得しなくてはならないという断りをいれるべきでした。質問の方法も本当によく考えて、回答を得やすいように学ばなければならないと痛感しました。お詫び申し上げます。
宜しくお願い申し上げます。

[Zuishin]

相対ディレクトリからフルパスを得ることができるので、そこは特に問題にならないと思います。

多少大きなプログラムなら、勝手にカレントディレクトリを変えるような行儀の悪いコードはバグの温床になるのでこちらの方法を選ぶべきですが、VBA なら問題ないかもしれませんね。

[pegy]

なるほど、一般的にcd (chdir)等でユーザーのカレントディレクトリを変えることは不適切なケースがあるので注意が必要一つ勉強になりました。
一つ勘違いであれば申し訳ないのですが、
C:\Users\UserName\Desktop\無題.xlsx といったパスは絶対パスではないでしょうか？

[Zuishin]

絶対パスです。相対パスからこれを得ることができます。

[Zuishin]

> 開いているブックのパスに変更するには、
ChDir ThisWorkbook.Path
とします。

> 若しくは、
InitialFileName:=ThisWorkbook.FullName _
とする。

これらも絶対パスです。

[Zuishin]

相対パスというのはカレントディレクトリからのパスになるので、カレントディレクトリが変わると同じ相対パスでも示す位置が変わります。

だから、カレントディレクトリは動かさないというのが基本になります。

Answer 2

どうやら GetSaveAsFilename には初期フォルダの引数はないようです。
ということで、
・前もってChDirでカレントディレクトリを変更しておく
・FileDialogオブジェクトを使う
のいずれかの方法でどうぞ。

Comments

[pegy]

コメントを頂きありがとうございます。
ChDirで解決することができました！

Answer 3

カレントディレクトリなら以下を参考に。
カレントフォルダを取得・設定する

ですが、開いているブックのフォルダが必要なら以下を参考に。
ブックのパスを取得する

Comments

[pegy]

コメント有難うございます。
いずれのディレクトリの取得の方法も分かったのですが、どのプロパティにこの取得したディレクトリを設定するのかマニュアルをみても分からなかったのでご教示を頂けると嬉しいです。
曖昧な質問で申し訳ございませんが、宜しくお願い申し上げます。

[sazi]

Application.GetSaveAsFilenameの前でカレントディレクトリを変更すれば良いですね。
開いているブックのパスに変更するには、
ChDir ThisWorkbook.Path
とします。

若しくは、
InitialFileName:=ThisWorkbook.FullName _
とする。

[sazi]

以下などが参考になると思います。
第75回.名前を付けて保存ダイアログ（GetSaveAsFilename）
https://excel-ubara.com/excelvba1/EXCELVBA375.html

[pegy]

ご返信遅くなりすみません。なるほど、大変勉強になりました。
無事解決することができたので御礼申し上げます。