| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]分组统计合并后，导出excel如何保留合并的样式（已解决）？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136770) |
| -- 作者：lunengcheng -- 发布时间：2019/6/21 10:25:00 -- [求助]分组统计合并后，导出excel如何保留合并的样式（已解决）？ 各位老师前辈后，我对表进行了分组统计，然后再对分组统计进行合并显示，然后用下面的代码导出这个表，然后发现导出来的表没有合并显示了，都是单行显示的，希望大家能解答一下，多谢了！ 导出excel代码： Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "excel文件|*.xls" \'设置筛选器 Dim nd As String = Date.now nd = nd.Replace(":","-") \'将 : 替换为 - nd = nd.Replace(" ","_") \'将 替换为 - dlg.FileName = "成教学员信息管理" & "_" & "_行政周报表" & "_" & _UserName & "_" & nd If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim flg As New SaveExcelFlags flg.RowNumber = True flg.CellStyle = True Tables("YW_成教学员信息管理_行政周报表").SaveExcel(dlg.FileName,"YW_成教学员信息管理_行政周报表", flg) \'保 存文件 Dim Proc As New Process \'定义一个新的Process Proc.File = dlg.FileName \'指定要打开的文件 Proc.Start() End If [此贴子已经被作者于2019/6/21 10:47:16编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/6/21 10:44:00 -- 认认真真看看
http://www.foxtable.com/webhelp/topics/0559.htm
|
| -- 作者：lunengcheng -- 发布时间：2019/6/21 10:47:00 -- 加上下面这个就可以，多谢老师！ flg.MergedRanges = True
|