Foxtable(狐表)用户栏目专家坐堂 → [求助]分组统计合并后,导出excel如何保留合并的样式(已解决)?


  共有1912人关注过本帖树形打印复制链接

主题:[求助]分组统计合并后,导出excel如何保留合并的样式(已解决)?

帅哥哟,离线,有人找我吗?
lunengcheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
[求助]分组统计合并后,导出excel如何保留合并的样式(已解决)?  发帖心情 Post By:2019/6/21 10:25:00 [只看该作者]

各位老师前辈后,我对表进行了分组统计,然后再对分组统计进行合并显示,然后用下面的代码导出这个表,然后发现导出来的表没有合并显示了,都是单行显示的,希望大家能解答一下,多谢了!

导出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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/21 10:44:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lunengcheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
  发帖心情 Post By:2019/6/21 10:47:00 [只看该作者]

加上下面这个就可以,多谢老师!
flg.MergedRanges = True

 回到顶部