Excel VBAプログラム関連＜基本事項＞
| 1.現在開いているブックの絶対パス取得 |
| 1.現在開いているブックの絶対パス取得 |
現在開いているブックの絶対パス(フォルダ名)を取得するには、以下の様にします。
WK_STRING1 = Application.Path
WK_STRING1はString型の変数です。事前に変数の定義をしておきます。
ただ、取得した絶対パス名はドライブのルート(\)以外、最後尾に「\」が付いていないので
以下の様にしてかならず最後尾に「\」を付けるようにしましょう。これでファイル名を
WK_STRING1 & "TEST.TXT"等で指定出来ます。
If Right(WK_STRING1, 1) <> Application.PathSeparator
Then WK_STRING1 = WK_STRING1 & Application.PathSeparator
※「Application.PathSeparator」は「\」を返します。
将来、パス表記が変わる可能性があるならば、直接"\"と指定せずにこの方が有効と言えるでしょう。