以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出到excel表中时合并模式没有了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153336)
--  作者：happyft
--  发布时间：2020/8/7 12:03:00
--  导出到excel表中时合并模式没有了
\'打开一个保存文件对话框,保存到用户指定的文件中
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表中时合并的效果就没有了
是哪里有问题? 谢谢!
--  作者：有点蓝
--  发布时间：2020/8/7 12:07:00
--  
既然不会用，应该先去看看这个用法的帮助

SaveExcel

将Table保存为Excel文件中的一个工作表.

语法

SaveExcel(FileName, SheetName, Flags)

FileName: 目标Excel文件名,含路径.
SheetName: 工作表名.
Flags:    可选参数,SaveExcelFlags类型,用于设置保存选项.

Tables(e.form.name & "_Table1").SaveExcel(dlg.FileName, "Sheet1",flg)  \'保存文件