ExcelVBAでExcelのパスを取得しようとするとエラーになってしまう。

Question

環境
windows10
Excel2010

ファイルパス取得参考HP

sub main()

   Set mainBook = ThisWorkbook
   Set mainSheet = ActiveSheet
   filePath = ThisWorkbook.Path
   Debug.print filePath

End Sub

上記のコードで実行すると『Excelは動作を停止しました』と出てパスが取得できません。バージョン等で取得できないとかがあるのでしょうか？

Comments

[KoichiSugiyama]

デバッガで一行ずつ実行するとどこでエラーメッセージが出ますか？

[sobue]

filePath = ThisWorkbook.Pathの場所です

Answer 1

「Excelは動作を停止しました」が出るということは、Excelがクラッシュしてしまう状態ですね。仮にバージョン等で取得できないとしても、クラッシュしてしまうのはまれかと思います。

Excel でのクラッシュや応答していない問題をトラブルシューティングする方法を参照されると良いかも知れません。

Answer 2

解決方法は不明ですが、自己環境で再度実行を行ったところ実行可能だったのでクローズしたいと思います。
（おそらくですが、OSの再インストールとExcelの再インストールをしたためかと思われます。）

Answer 3

同じ環境（Win10＆Excel2010）で実行してみましたが、正常に動作しました。
変数を明示的に定義する、ステップ実行で、どの行でクラッシュしているか調べる、Windowsログを調べる、などして原因を調べてみてはどうでしょうか？

Answer 4

迂回作ですが、ThisWorkBook.FullNameでフルパスをし、そこからパスを割り出すという方法はどうでしょうか？

Comments

[sobue]

プロパティが不正ですとなり使用不可でした。

[ExcelVBAer]

アンラッキーでしたね。。。

Officeを入れ直す（アンインストール⇒再起動⇒再インストール）してみたり、
Windowsの更新、Officeの更新を最新にしてみたりして
様子をみるしか手立てはないかと。。。

Answer 5

一度、修復してみてください。
Office 2010 を修復する方法