![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/00.png)
ファイルを保存する時に名前を付けて保存をすると、ドキュメントが自動的に開きます。
下図はExcel2016です。
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/01-1.png)
既定フォルダの設定は、[ファイル]>[その他]>[オプション]>[保存]>[既定のローカルファイルの保存場所]で設定できます。
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/02-1.png)
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/03.png)
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/04.png)
これをVBAでやってみます。
既定のローカルファイルの保存場所の取得、設定には「DefaultFilePath」プロパティを使います。
< スポンサーリンク >
構文
Applicationオブジェクト.DefaultFilePath
ファイルを開くときにMicorosoft Excelが使用する既定のパスを設定または取得します。
例
既定のフォルダを取得してメッセージで表示してみます。
Sub test()
MsgBox Application.DefaultFilePath
End Sub
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/05.png)
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/06.png)
既定のフォルダをデスクトップに変更してみます。
Sub test()
Application.DefaultFilePath = “C:\Users\admin\Documents”
End Sub
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/07.png)
![既定フォルダ](https://lilia-study.com/wp-content/uploads/2020/09/08.png)
こんな記事も書いています