Sub yanjie() Dim OldPath As String, NewPath As String OldPath = CurDir '先儲(chǔ)存舊的默認(rèn)路徑！ ChDir ThisWorkbook.Path '更改ThisWorkbook.Path為默認(rèn)路徑！ '......加入你的代碼 ChDir OldPath '執(zhí)行完程序后，最后更改為先前舊的默認(rèn)路徑！ End Sub