EXcelのマクロで相対パスでファイルを開く

Excelでマクロを使って他のブックを開こうとしています。
同じフォルダ内のブックを開くには
Workbooks.Open Filename:=ThisWorkbook.Path & "\ブック名.xls"
で開く事が出来たのですが、一つ上の階層にあるブックを開きたいときはどのようなコマンドを使えば良いのでしょうか？？

お教え下さい。

No.2 回答者： Wendy02 回答日時： 2009/11/27 12:21

こんにちは。

ご質問の「相対パス」なら、#1さんが正解だと思いますし、Current Directory を移動させてしまえば、ファイル名の指定も、パスなしで指定できます。

ただ、私の場合は、だいたい、以下のようなコードを書くことが多いです。

'-------------------------------------------
　　Dim fName As String
　　Dim mPath As String
　　mPath = ThisWorkbook.Path
　　fName = "Test1.xls"
　　i = Len(mPath) - Len(Replace(mPath, "\", ""))
　　If i > 1 Then
　　　　mPath = Mid(mPath, 1, InStrRev(mPath, "\") - 1)
　　Workbooks.Open mPath & "\" & fName
　　End If
　
'-------------------------------------------

この回答へのお礼

お返事遅くなりました。
#1（Trick--o--さん）の方法で行いました。
しっかり勉強してWendy02さんのようにマクロをかけるように頑張ります。

お礼日時：2009/12/10 15:49

No.1 ベストアンサー 回答者： Trick--o-- 回答日時： 2009/11/27 10:42

Workbooks.Open Filename:=ThisWorkbook.Path & "\..\ブック名.xls"

フォルダ名「..」で親フォルダを参照できます。

この回答へのお礼

お返事遅くなりました。
教えていただいた方法で解決しました。
ありがとうございました。

お礼日時：2009/12/10 15:50