12/02/14 21:01:01.46
>>197
32ビット版なので確認できないが、
64ビット版だとSaveDirに関係なくいつもマイドキュメントが開くってことか
Sub test()
Const FileName = "test.xlsx"
Const SaveDir = "C:\"
Dim fname
MsgBox CurDir
fname = Application.GetSaveAsFilename(InitialFileName:=SaveDir & FileName)
MsgBox CurDir
End Sub