Excel VBA カレントフォルダのひとつ上のフォルダを指定したい

質問

はじめて質問をさせていただきます。

ExcelのVBA初心者なのですが、既存のファイルに継ぎ足しで新規のファイルを作成しております関係上、カレントフォルダのひとつ上のフォルダを指定したいと考えております。

変数=thisworkbook.path

のようにカレントフォルダの取得の仕方は分かったのですが、そこからひとつ上を指定する方法などはあるのでしょうか？

よろしくお願いいたします。

回答No.2

venzou · ベストアンサー

別回答

ファイル名の前に \..\ をつける方法もあります。

例：１つ上のフォルダのtest.xlsを開く

変数 = ThisWorkbook.Path
Workbooks.Open (変数 & "\..\test.xls")

..\ は１つ上のフォルダの事です。
..\..\ とすると２つ上のフォルダになります。

お礼

やってみたら出来ました。
ＤＯＳプロンプトと同様の考え方でよかったんですね！
意外とこういったネタってどこにも載っていないので、
素早くご回答いただき、非常に助かりました。
ありがとうございます♪

回答No.1

n-jun

もっといい方法があるのかも知れませんが。

With ThisWorkbook
変数 = Left(.Path, InStrRev(.Path, "\") - 1)
End With

ご参考程度として下さい。