VB下给EXCEL命名的目录路径问题

Question

我想用
mybook.SaveAs (App.Path & CurrentDate & ".xls")或
mybook.SaveAs (GetCurrentDirectory & CurrentDate & ".xls")语句保存以当前日期命名的文件到程序运行目录内，可是以上两条语句都只能够将文件保存在与程序运行文件同一级别的目录下，该如何改进语句啊？
各位大侠帮帮忙，我是新手！

Answer 1

ThisWorkbook是对文档对象自身的引用，就像C++里的this指针
Dim sPath as string
sPath=ThisWorkbook.Path
ThisWorkbook.SaveAs sPath & "\" & format(Date,"yyyymmdd") & ".xls"