2014年10月6日月曜日

[VBA] カレントディレクトリのパスを確認する方法

VBA で開いたファイルのディレクトリを確認する方法です。

■ Word の場合

Document オブジェクトの Path プロパティを使います。
Debug.Print Me.Path

■ Excel の場合

Workbook オブジェクトの Path プロパティを使います。
Debug.Print ActiveWorkbook.Path

■ Access の場合

Database オブジェクトの Name プロパティを使います。ただしこれはファイル名まで含んでいるので、フォルダ名が欲しい場合はファイル名を削る必要があります。
(参照設定)Microsoft Scripting Runtime
Dim Fso As New FileSystemObject
Debug.Print Fso.GetParentFolderName(Database.Name)