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