'打开一个保存文件对话框,保存到用户指定的文件中
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim flg As New SaveExcelFlags
'flg.RowNumber = True '保存行号列
flg.CellStyle = True '保存单元格样式
flg.MergedRanges = True '保存合并模式,默认为true
flg.VisibleOnly = True '保存可见列,默认为true
Tables(e.form.name & "_Table1").SaveExcel(dlg.FileName, "Sheet1") '保存文件
End If
e.Form.close()
用上面的代码,查询出来的数据在窗口中已经按要求合并,但是导出到excel表中时合并的效果就没有了
是哪里有问题? 谢谢!