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