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

导出Excel有问题，12.29版正常
代码： Tables("交叉统计").SaveExcel("D:\My Documents\Reports\数据分析.xls","交叉统计",False)
                    Dim Result As DialogResult
                    Dim Proc As New Process '打开工作簿
                    Proc.File = "D:\My Documents\Reports\数据分析.xls"

此主题相关图片如下：2010-2-22 13-56-28.png

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

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

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

 

SaveExcel

 

将Table保存为Excel文件中的一个工作表。

语法

SaveExcel(FileName, SheetName, Flags)

 

FileName： 目标Excel文件名，含路径。
SheetName: 工作表名。
Flags：    可选参数，SaveExcelFlags类型，用于设置保存选项。

SaveExcelFlags类型的属性包括：

CellStyle：   是否保存单元格样式，默认为False
FixedCells：  是否包括标题行，默认为True
RowNumber：   是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为False
SelectedOnly：是否只保存选定行，默认为False
VisibleOnly： 是否只保存可见列，默认为True

示例一

用默认设置保存订单表：

CurrentTable.SaveExcel("C:\data\test.xls","订单")

示例二

保存订单表，包括行号列和单元格样式：

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

SaveExcelFlags中的MergedRanges设置无效。即使将其设为True，导出的excel文件仍然不是合并模式。
另外，如果是复式表头的table，导出excel后，标题变成这样的了：

此主题相关图片如下：1.jpg

这个不知可否改进一下？而且，生成的excel自动加上了横竖两条线，很不美观。

我顶R版。

自己设计一个导出功能，什么要求都可达到。

收到，我看看

再编辑一下总比没有强，又不能用模板接收数据，因为生成的零时表是动态的