［Excel VBA］カレントディレクトリを取得する
CurDir関数を使う。戻り値のデータ型は文字列。以下は、起動した直後のExcelで実行した例。なお、これを実行したパソコンはDドライブがある。
Debug.Print "カレントディレクトリ→" & CurDir()
Debug.Print "カレントディレクトリ→" & CurDir("C")
Debug.Print "カレントディレクトリ→" & CurDir("D")
→
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→D:\
Excelは特に指定をしないと、起動直後はC:\Users\○○\Documents（○○はアカウント名）がカレントディレクトリになる。
引数に設定していないドライブ名を指定すると、エラー「実行時エラー '68': デバイスが準備されていません。」が発生して、プログラムが停止するので注意。
« ［R］一時ファイル（テンポラリファイル）を利用する | トップページ | ［R］ZIPファイルを作成、展開する »
「Excel VBA」カテゴリの記事
- ［Excel VBA］CSVファイルを高速で読み込む(2023.08.30)
- ［ExcelVBA］文字コードがutf-8のテキストファイルを出力する(2022.11.10)
- ［Excel VBA］カレントディレクトリを取得する(2021.09.17)
- ［Excel VBA］FileSystemObjectを使えるようにする(2020.03.22)
- ［Excel VBA］フォルダー内のサブフォルダー一覧を得る(2019.10.10)
コメント