ファイルを指定して開きたいのですが…

質問

フォルダにいくつかのexcelシートがあります。
それをフォームを使ってそれぞれ呼び出すようにしたいのですが、
カレントディレクトリにあるはずなのに、3回に1回は「ファイルが見つかりません」となり、開けないことがあります。

そこで、先にカレントディレクトリを取得して、その取得した値をもとにフルパス指定するなどして、ファイルを開くようにしたいのですが、できそうでできません。

ちなみに、C:～などとあらかじめ設定してしまうと、コレを利用する複数のユーザがいるのですが、それぞれパスが異なっているために、個人用にパスを書き直さなければならなくなってしまうので、上記の方法を思いつきました。

最悪ネットワーク上に必要なデータ（フォルダ）を置き、そこを開くようにすれば？とも思ったのですが動作が重くなってしまうので、なるべくならやりたくありません。

どなたかお力を拝借できませんでしょうか。

回答No.3

yokomaya · ベストアンサー

thisworkbook.pathとの関連はないのでしょうか？もしあればそっちの方が楽かも。

お礼

なるほどですね！！
ChrDirとChrDriveでthisworkbook.pathを指定して、うまく開くようになりました！

ありがとうございます！ホント感謝です！

回答No.2

yokomaya

オープンはそれでいいと思いますがパスの問題ですよね。
curdirで現在パスは得られますよね。
ユーザーはapplication.usernameで得られますから、対応表をシートに用意してVLOOKUPとかでは如何でしょうか

回答No.1

yokomaya

VBAのお話しでしょうか？でしたら現状のコードを示して戴くのが早道かと。
外してたら済みません。

補足

失礼しました。VBAです。
Workbooks.Open Filename:="(ファイルのなまえ.xls)"
Editable:=true

↑現状コレでカレントディレクトリの中のファイルを開こうとしています。