こんにちは。
VBAを使うことが、頻繁ではないですが、ちょくちょくあり、
その都度「コードってこれで良かったっけ？」「どう書くんだっけ？」
となることが、しばしば、、、あります。
その時その時で調べて、確認して、コードを書いてとしていたので、
自分が使いやすいように、コードをコピペで使えるようにまとめます。
内容
ファイル操作をすることがしばしばあり、
カレントディレクトリを取得するコードをまとめておきます。
また、取得した情報をもとにMsgBoxで表示するコードを記載しておきます。
コード
内容で記載した処理を行うコードを以下に記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub test() strFolderPath = funcGetFileCurDir() MsgBox strFolderPath End Sub '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 'Date: 2020/3/2 'Contents: 自分が置かれている場所を返す（カレントディレクトリ名） 'Argument: 無し 'RValue: String カレントディレクトリ 'Author: 'Update: ▲1：yy/mm/dd XXX ' 'remaarks: 'remaarks: '■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ' Function funcGetFileCurDir() As String funcGetFileCurDir = ActiveWorkbook.Path End Function |
なお、実行するファイルは以下のフォルダ内に置いておきます。
コードを実行
コードを実行してみます。
下図に示すように、ファイルがおかれているフォルダパスを取得し、表示してくれました。
