保存EXCEL文件的保存路径问题！急急急急！！

Question

我想用   
mybook.SaveAs       (App.Path       &       CurrentDate       &       ".xls   ")或   
mybook.SaveAs       (GetCurrentDirectory       &       CurrentDate       &       ".xls   ")语句保存以当前日期命名的文件到程序运行目录内，可是以上两条语句都只能够将文件保存在与程序运行文件同一级别的目录下，该如何改进语句啊？或者保存在同一个文件夹里的“DATA"文件夹内 。  
各位大侠帮帮忙，我是新手！但是不想用【
'去掉App.path或GetCurrentDirectory，然后存到你自己指定的目录就行了 
  mybook.SaveAs("D:\"   &   CurrentDate   &   ".xls")】这样的绝对路径保存。 

Answer 1

App.Path & "\" & CurrentDate & ".xls"

Answer 2

App.Path   &   "\data\"   &   CurrentDate   &   ".xls"
将文件保存到到前程序所在目录中的DATA文件夹!