VBAでのパスの取得

質問

使用アプリ：Exel2000

コーディングしたマクロをVBAProject(XLCALS.XLM)に保存してあります。

その中で

Dim fpath As String
fpath = ThisWorkbook.Path
若しくは
fpath = ActiveWorkbook.Path

でファイルパスを取得しようと思ったのですが、XLStartフォルダのパスが取得されてしまいます。

どうすれば現在開いているファイルパスを取得する事が出来るのでしょうか。

回答No.1

guruguru2 · ベストアンサー

こんにちわ。(^^)
ファイル名がXLCALS.XLMなら

ThisWorkbook.Path & "\XLCALS.XLM"
でよろしいと思います。

補足

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

現在開いているファイルはデスクトップにあり、ファイル名は「テンプレート.XLS」です。

マクロは色々なブックで使用したいため、XLCALS.XLM（個人用みたいなものだと思うのですが）に保存しています。

回答No.2

guruguru2

またまた失礼いたします。m(_ _)m

XLM形式のファイルを共通ファイル（あくまで１つのファイルを複数のプロジェクトから参照）
として使用しているということでしょうか？
テンプレート.XLSにモジュールをインポートしたのではなく？

お礼

迅速に回答して頂き、ありがとうございました。

単純なコーディングミスがあり、修正後取得する事ができました。

補足

またまたありがとうございます。

テンプレート.XLSにモジュールはインポートしていません。

マクロはアプリケーションのみを単独で立ち上げた時に表示されるプロジェクト（VBAProject(XLCALS.XLM)）の標準モジュールに保存されています。

おそらくどのエクセルファイルを開いてもそのまま実行出来る形になっていると思います。