[[20100105214348]]　『マクロにおける相対パスについて』（kyoma）　ページの最後に飛ぶ

『マクロにおける相対パスについて』（kyoma）

お世話になります。マクロ初心者です。よろしくお願いします。

現在ＭＯ（Ｈ：￥）でＶＢＡを書いています。その際、ＶＢＡを保存するファイルは基礎データでこれの１つ下のフォルダ内のファイルを参照するようにしなければなりません。

絶対パスではうまくいくのですが、別の環境（たとえば、デスクトップに丸ごとコピーして実行とか、他のパソコンにＭＯごと移動してドライブ名が変わったり・・・）になると当然参照ファイルが見つからなくなります。

このような場合は、相対パスでファイルを指定するように書いてあげれば良いと思うのですが、書き方がわかりません。

どなたかご指導をお願いします。

 ThisWorkbook.Path
 で自ブックが格納されているフォルダのパスを取得できます。
 自ブックのフォルダの一階層下ですと、

 ThisWorkbook.Path & "\test"
 などと指定します。

 またFileSystemObjectを使って、

 CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.Path)
 とすると、自ブックが格納されているフォルダの一階層上を取得できます。

 (MARBIN)

MARBIN　さん

早速のご回答ありがとうございます。

実は、このステートメントの前に、

Workbooks.Open Filename:=ThisWorkbook.Path & "\test"

をつけてやっているのです。が、エラーです。

要は、一階層下のファイルを開きたいのですが、教えていただけませんか？

よろしくお願いします。

 ThisWorkbook.Path & "\test"

 はフォルダ名です。
 ファイル名を付加してやる必要があります。

 Workbooks.Open Filename:=ThisWorkbook.Path & "\test\hoge.xls"
 (MARBIN)

 もしかしたら「一階層下」の認識が違っているかもしれません。

 D:\A
 D:\A\B
 D:\A\B\C

 の場合、
 D:\A\B
 の一階層下は
 D:\A
 D:\A\B\C
 のどちらになりますか？
 (MARBIN)

MARBIN　さん

ありがとうございます。２つ上のご指摘を今、試したところ希望通りの結果がでました！

大変、勉強になりました。

またの機会がありましたら、よろしくお願いします。

コメント返信：