【VBA】获取当前路径/获取上一级路径

'获取当前路径
p = ThisWorkbook.Path
MsgBox (p)

'获取上一级路径
p = Mid(p, 1, InStrRev(p, "\"))
MsgBox (p)