ExcelVBAで、FileSystemObjectを使用して自分のファイルパスを取得する方法

こんにちは。
Excelで、FileSystemObjectを使用して自分自身のファイルパスを取得するには、どうすればよろしいでしょうか？

通常だと、「ThisWorkbook.FullName」で取得できますが、同じようにFileSystemObjectで取得する方法がありますか？

ファイル名の方は、s = fso.GetFileName(ActiveWorkbook.Name)　で取得できていますが、パスを取得する方法が分かりませんでした。
お願いします。

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2018/09/09 17:56

こんにちは。

基本的には、パスを取得するために、FilesystemObject　は WSHで使う場合がほとんどだと思います。

'//
Sub Test1()
Dim fn As String
Dim objFS As Object
fn = ThisWorkbook.Name
Set objFS = CreateObject("Scripting.FilesystemObject")
MsgBox objFS.getAbsolutePathName(fn)
Set objFS = Nothing
End Sub

この回答へのお礼

どうもありがとうございました。
getAbsolutePathName　でできました。

お礼日時：2018/09/09 18:28

No.1 回答者： よろずやkinchan 回答日時： 2018/09/09 14:23

＞FileSystemObjectで取得する

ThisWorkbook.FullName を与えれば取得できますが...
与えたものと同じものを取得するなんて、意味ないですよねぇ。