主题：新版导出为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") '保存工作簿