以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  到处excel怎样连合并和合计也带上？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115270)
--  作者：a2029460
--  发布时间：2018/3/4 9:48:00
--  到处excel怎样连合并和合计也带上？
如题，一个表合并合计模式后，用代码导出是不带这俩功能的 ， 请问怎么一模一样的导出啊
--  作者：有点甜
--  发布时间：2018/3/4 10:33:00
--  

用saveExcel导出，参考

 

http://www.foxtable.com/webhelp/scr/0559.htm

 
--  作者：a2029460
--  发布时间：2018/3/4 15:13:00
--  
导出的时候带不上合计模式啊！！！！
--  作者：a2029460
--  发布时间：2018/3/4 15:14:00
--  

SaveExcel(FileName, SheetName, Flags)

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

SaveExcelFlags类型的属性包括：

CellStyle：   是否保存单元格样式，默认为False
RowNumber：   是否包括行号列，默认为False
MergedRanges：是否保存合并模式，默认为True
VisibleOnly： 是否只保存可见列，默认为True
--  作者：有点甜
--  发布时间：2018/3/4 16:28:00
--  

认认真真参考，带上flags参数

 

http://www.foxtable.com/webhelp/scr/0559.htm

 
--  作者：a2029460
--  发布时间：2018/3/5 18:39:00
--  

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
flg.VisibleOnly = True
flg.MergedRanges = True

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Tables("库销存_Table1").SaveExcel(dlg.FileName,"库销存_Table1",flg )  \'保存文件
End If

 就这4个参数 我都是true了  合计还是带不上啊  合并到是带上了 
--  作者：有点蓝
--  发布时间：2018/3/5 20:26:00
--  
仅支持合并，不支持合计。
可以使用模板定义统计表达式：http://www.foxtable.com/webhelp/scr/1389.htm