こんにちは。 ご質問の「相対パス」なら、#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
![EXcelのマクロで相対パスでファイルを開く - OKWAVE](https://cdn-ak-scissors.b.st-hatena.com/image/square/a3202632a5b19efa6d7dbcca644fc13bfa3453dc/height=288;version=1;width=512/https%3A%2F%2Fgazo.okwave.jp%2Fokwave%2Fspn%2Fimages%2Flogo%2Ffacebook_okwave.jpg)