此主题相关图片如下:导出.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
