ActiveWorkbook.Pathの一つ上

ActiveWorkbook.Pathの一つ上のパスを取得する方法はありますか？

例えば、現在のエクセルブックが入っているパスが
C:\Users\ユーザー名\Documents
だった場合、
ActiveWorkbook.Pathをすると、上記のパスが取得されますが、
ＶＢＡコードで「C:\Users\ユーザー名」までを取得する方法はありますか？

Dim strPathName As String
strPathName = ActiveWorkbook.Path
strPathName = Replace(strPathName, "\Documents", "")

こうするしかないですか？

No.2 ベストアンサー 回答者： jcctaira 回答日時： 2013/02/02 19:53

rdnxeifhylevaさん

以下の命令で一つ上（親）のパスを取得できます。
　
　strPathName = CreateObject("Scripting.FileSystemObject") _
　　　　.GetFolder(ActiveWorkbook.Path).ParentFolder

お試しください。

この回答へのお礼

FSOを使う方法もあるのですね。
有難うございます。

お礼日時：2013/02/05 21:58

No.1 回答者： keithin 回答日時： 2013/02/02 16:34

left(activeworkbook.path,instrrev(activeworkbook.path,"\")-1)

とかでも。

この回答へのお礼

検証した結果取得できました。

お礼日時：2013/02/05 21:57