怎样设置保存目录？~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Question

我有一段程序，是报表输入到execl里面，自动生成每日报表
看了一段msdn文档，是默认输入到程序的根目录下的，
MyXL.SaveAs App.Path & "每日汇总表_" & Format(dt1, "yyyymmdd") & ".xls"
我想输入到下一级目录比如说重大事件目录下，应该怎么写呢？

Answer 1

创建新目录：mkDir
mkDir(app.path & "\重大事件")
MyXL.SaveAs App.Path & "重大事件" & "\" & "每日汇总表_" & Format(dt1, "yyyymmdd") & ".xls"

Answer 2

mkDir(app.path & "\重大事件")楼主没看到？