显示工作簿所在目录 Sub DisplayPath() Debug.Print ThisWorkbook.Path End Sub 转载于:https://www.cnblogs.com/nikeylee/archive/2012/07/12/2588796.html