以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于excel报表相同项合并的问题,有图有项目,麻烦各位了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56741)

--  作者:zhengboxin
--  发布时间:2014/9/11 15:53:00
--  关于excel报表相同项合并的问题,有图有项目,麻烦各位了

我想实现下图一的效果,但是用下面的代码结果是图二的效果,直接用报表管理预览是图一的效果

代码:

Dim Book As New XLS.Book(ProjectPath & "Attachments\\报表.xls")
 Dim fl As String = ProjectPath & "Reports\\报表.xls"
  Book.Build()
  Book.Save(fl)
 Dim Proc As New Process
  Proc.File = fl
 Proc.Start()

 

第二列不考虑第一列内容不一样也合并了,帮助里说的自由合并我也设置了False,我要的就是某几行AA,BB,CC列的内容都一样时才合并,否则不合并,麻烦各位老师解答下了,万分感谢

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel报表.rar

图一:


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图二:

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-9-11 15:55:20编辑过]

--  作者:狐狸爸爸
--  发布时间:2014/9/11 16:02:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报表.xls")
Dim fl As String = ProjectPath & "Reports\\报表.xls"
book.MergeFree =False
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

--  作者:zhengboxin
--  发布时间:2014/9/11 16:04:00
--  
难怪一直没反应,狐爸出手就知有没有,谢谢