ダイアログボックスのpathの指定で下位フォルダを指定したい

Excel2003 でマクロ作成中の超初心者です。以下のコードで21年度のフォルダが開けます。が、21年度\個人別　という下位のフォルダを指定したいのです。pathを\C・・・から指定すればできそうですが、このマクロを他のＰＣで実行した場合pathがみつかりませんの
エラーが出ると思います。どう指定したらよろしいでしょうか。
Private Sub CommandButton7_Click()
Dim OpenFileName As String
On Error Resume Next
ChDir "21年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
End If
End Sub

No.2 ベストアンサー 回答者： kazuhisa01 回答日時： 2009/03/16 11:24

実行したExcelのパスを取得して、階層を指定してあげればいいのでは？

ChDir ThisWorkbook.Path + "\21年度\個人別"

もしかしたらそのままのコードでは開けないかもしれませんが・・・。

この回答へのお礼

できました！ありがとうございました。ほんとにたすかりました

お礼日時：2009/03/16 11:46

No.1 回答者： redfox63 回答日時： 2009/03/16 10:26

ブックを置く場所から 相手のフォルダーは固定できるのでしょうか？

固定できるのであれば
ChDir thisWorkbook.Path
ChDir "..\..\21年度\個人別"
などと 21年度\個人別 を ブックからの相対パスにしてはいかがでしょう

この回答への補足

お世話になります。今実行しましたが、パスが見つかりません　と表示されます。　点の数が影響しているのでしょうか？

補足日時：2009/03/16 10:49