Foxtable(狐表)用户栏目专家坐堂 → 合并导出


  共有2459人关注过本帖平板打印复制链接

主题:合并导出

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


加好友 发短信
等级:幼狐 帖子:56 积分:531 威望:0 精华:0 注册:2019/7/16 14:29:00
合并导出  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部