以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并导出  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163074)

--  作者:455631117
--  发布时间:2021/4/22 16:09:00
--  合并导出

图片点击可在新窗口打开查看此主题相关图片如下:导出.png
图片点击可在新窗口打开查看



Tables("打卡统计").Filter = ""
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim flg As New SaveExcelFlags
    flg.CellStyle = True
    flg.VisibleOnly = True
    flg.MergedRanges = True
    Tables("打卡统计").SaveExcel(dlg.FileName,"打卡统计",flg)
End If
这是导出按钮的代码

如图,我导出为表格后,单元格缺没有合并,请问老师问题出在哪里

图片点击可在新窗口打开查看此主题相关图片如下:导出2.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/4/22 16:33:00
--  
foxtable的表格合并前的数据就不对,合并前单元格比如第1、2、3行首项都是7,然后再合并。