'獲取當前路徑
p = ThisWorkbook.Path MsgBox (p)
'獲取上一級路徑 p = Mid(p, 1, InStrRev(p, "\")) MsgBox (p)
'獲取當前路徑
p = ThisWorkbook.Path MsgBox (p)
'獲取上一級路徑 p = Mid(p, 1, InStrRev(p, "\")) MsgBox (p)
本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。