Excel 2007 マクロ 他のブックを開く方法

質問

Excel 2007 マクロ　他のブックを開く方法

マクロで他のブックを開く場合、パスを設定すると思います。
例えば下記の例で、サンプルフォルダをCドライブから
Dドライブに移動してもマクロの内容を変更せずに
ブックを開く方法はありませんでしょうか。

理由としては自分だけがこのマクロを使用するのであれば
特定のパスで設定しておけばいいのですが、
他の人が使用する場合、それぞれパスが異なります。

解決方法がございましたら、お教えください。

Sub bookcheck()
　　　　Workbooks.Open Filename:="C:\サンプル\Data.xls"
End Sub

回答No.2

merlionXX · ベストアンサー

どのフォルダーにあるかわからないファイルを自動的に検索して開くことは現実的ではないと思います。

ユーザーにより保存場所が異なるというなら、それこそユーザーに
Application.Dialogs(xlDialogOpen).Show
で、指定してもらえばすむのでは？

あるいは、そのマクロを実装したファイルを、ユーザーに指定のData.xlsを保存してあるフォルダーに入れてもらえば、
Workbooks.Open Filename:=ThisWorkbook.Path & "\Data.xls"
ですみます。

あと、2007なら拡張子が違うのでは？

お礼

ご回答ありがとうございました。参考にさせて頂きます。

回答No.1

MackyNo1

基本的に、環境の異なるPC上のファイルを、同じパスのマクロで対応することはできません。

Data.xlsファイルもマクロを登録したブックと同じフォルダに入れてあるなら、自分自身のパスを取得して以下のようなコードでファイルを開くことができます。

Workbooks.Open Filename:=ThisWorkbook.Path &"\Data.xls"

もし、自ブックの所在フォルダの配下にある「Database」フォルダを指定するというなら、以下のように変更してください。

ThisWorkbook.Path & "\Database\Data.xls"

お礼

ご回答ありがとうございました。参考にさせて頂きます。