名前を付けて保存のダイアログボックスを表示するために以下のコードを記載したのですが
操作しているエクセルが\shared\hoge\fileと共有フォルダ内なのに、マイドキュメントが指定されてしまいます。これをカレントディレクトリである\shared\hoge\fileに指定(また共有でなくても、例えば、カレントディレクトリがdesktopであればdesktop)することができるのでしょうか?
宜しくお願い申しあげます。
vba
1Private Sub CommandButton2_Click() 2 'ActiveWorkbook.Saved = True 3 Dim FileName As Variant 4 FileName = _ 5 Application.GetSaveAsFilename( _ 6 InitialFileName:=ThisWorkbook.Name _ 7 , FileFilter:="Excel マクロ有効ブック(*.xlsm),*.xlsm" _ 8 , FilterIndex:=1 _ 9 , Title:="保存先の指定" _ 10 ) 11 If FileName <> False Then 12 Application.DisplayAlerts = False 13 ThisWorkbook.SaveAs FileName:=FileName, FileFormat:=xlNormal 14 Application.DisplayAlerts = True 15 End If 16 Unload Me 17End Sub
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/08/07 10:06
2019/08/07 23:29
2019/08/07 23:36 編集
2019/08/08 06:30
2019/08/08 06:39
2019/08/08 06:43
2019/08/08 06:45