ExcelVBA 1階層上の親ディレクトリパスを取得「ParentDirName」

Function ParentDirName() As String

　With ThisWorkbook
　　ParentDirName = Left(.Path, InStrRev(.Path, "\") - 1)
　End With

End Function

ネタ元

www.vba-ie.net