【VBA】フォルダ指定の方法【Excel2000】

質問

独学で学んでいるVBA初心者です。

Summary.xlsにLog.xlsの内容をコピーするマクロを作りたいと思っています。
しかしDataフォルダは一定の場所にあるわけではないので相対パスで指定したいと思っています。

いろいろ自分なりに調べて

Workbooks.OpenText Filename:=ActiveWorkbook.Path & "\..\Log\Log.xls"

と記述したのですがLog.xlsが見つかりませんとエラーがでてしまいます。
(図中のData,Summary,Logはフォルダ名です。)

Summary.xlsを基準にした相対パスでLog.xlsを開きたい時にどう記述すればいいのか
どなたかご教授下さい、お願いします。

回答No.3

jcctaira · ベストアンサー

EXCEL2000でもEXCEL2003でも以下のパスでできましたよ。

aazz12さんと同じ（ActiveWorkbookはThisWorkbookと同様）だと思うので
何か勘違いしているような気がします？

Workbooks.OpenText Filename:=ThisWorkbook.Path & "\..\log\Log.xls"

お礼

すみません、今一度よく確認してみたらそれで通りました。
おっしゃるとおり、どこか勘違いしていたのかもしてません;;

回答No.2

kmetu

失礼

ChDir ThisWorkbook.Path
Workbooks.OpenText Filename:="..\Log\Log.xls"

でよかったです。

お礼

回答ありがとうございます。
無事開くことができました！

回答No.1

kmetu

ChDir ThisWorkbook.Path
ChDir "..\Log"
Workbooks.OpenText Filename:="Log.xls"

でいかがですか。