Excelマクロ パスの指定方法

Excelのマクロで別のファイルを編集するのにパスを指定しています。
現状は使用しているドライブ、フォルダが固定されているので下記の様に
ドライブ名から指定しています。
＜現状＞
　・C:\AAA\BBB\PPP.xls 　　→マクロの入っているファイルを指定
　・C:\AAA\BBB\CCC\SSS.xls　 →編集したいファイルを指定

今後、別のドライブやフォルダで使用出来る様にしたいのですがどうすれば
よろしいでしょうか？
　・~\BBB\PPP.xls、~\BBB\CCC\SSS.xlsの位置関係は固定
　・~\BBB\CCCの下にあるSSS.xlsを開いて編集したい。
　・~\BBB\PPP.xlsがC\、D\等どのドライブ、フォルダになっても使用可能にしたい。

以上よろしくお願い致します。

No.2 ベストアンサー 回答者： OsieteG00 回答日時： 2005/09/20 14:44

ちょっと間違えていたのでお詫びにコードを。

Dim strPath As String
　strPath = App.Path
'ルートでなかった場合
　If Right(strPath, 1) <> "\" Then
　　strPath = strPath + "\"
　End If

で、データファイルパスを
strPath & "CCC\SSS.xls"
とすればよいです。

この回答へのお礼

ありがとうございました。
確認してやってみます。

お礼日時：2005/10/09 11:36

No.1 回答者： OsieteG00 回答日時： 2005/09/20 09:21

App.path & "\BBB\CCC\SSS.xls"

ただし、App.pathがルート（ドライブ直下）のときは右端に"\"が入るので除去すること。