主题：新版导出为EXSEL代码出错（已解决）

这是我原在1229版时做的导出的代码，原版没问题，现新版报错，经查，是红色部份的问题，但看新帮助并没有问题啊，到底是什么原因？
If FileSys.DirectoryExists(ProjectPath & "\导出文件") Then
Else
FileSys.CreateDirectory(ProjectPath & "\导出文件")
End If
Tables("XC_薪酬管理_Table1").SaveExcel(ProjectPath & "导出文件\"& Date.Today & Vars("表名") &".xls",Vars("表名"),False)
Dim Book As New XLS.Book(ProjectPath & "导出文件-:special:1:-& Date.Today & Vars("表名") &".xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If Sheet(0,0).Value = "ID" Then
Sheet.Cols.RemoveAt(0) '在删除第一列
End If

Book.Save(ProjectPath & "导出文件-:special:1:-& Date.Today &Vars("表名") &".xls") '保存工作簿

我找到问题了，不是一楼红色代码的问题，而是上一句代码：
Tables("XC_薪酬管理_Table1").SaveExcel(ProjectPath & "导出文件\"& Date.Today & Vars("表名") &".xls",Vars("表名"),False)

二楼的问题也是这样的问题，请易服看看下面的帮助文件

根据新帮助，我发现这上面红色的部分，可以去除不用，这是个可选项，也可以根据帮助进行选择。可参看下面的帮助文件