みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【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を開きたい時にどう記述すればいいのか
どなたかご教授下さい、お願いします。

投稿日時 - 2011-02-17 18:39:34

QNo.6530165

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2011-02-17 20:36:56

お礼

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

投稿日時 - 2011-02-17 20:51:23

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

失礼


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


でよかったです。

投稿日時 - 2011-02-17 19:28:37

お礼

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

投稿日時 - 2011-02-17 20:49:49

ANo.1

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

でいかがですか。

投稿日時 - 2011-02-17 19:25:28

あなたにオススメの質問