Foxtable(狐表)用户栏目专家坐堂 → excel报表合并模式问题


  共有3627人关注过本帖树形打印复制链接

主题:excel报表合并模式问题

帅哥哟,离线,有人找我吗?
sky-18
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
excel报表合并模式问题  发帖心情 Post By:2014/5/20 23:23:00 [只看该作者]

excel报表模板设置的合并模式为标准模式.
单时通过两种方法生成的报表一个是标准模式,一个却是自由合并.这是怎么回事呢?
1:   XLS.Reports("厂订单").Build()   '这个方法生成出来是标准合并,这符合我的原意

2:    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
        Dim fl As String = ProjectPath & "Reports\订单.xls"
        Book.Build() '生成报表
        Book.Save(fl)     
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.Cells
        Rg.EntireRow.AutoFit  '自动调整行高
        App.Visible = True
而这个方法生成的却是自由合并模式,可我在模板里设置的是标准合并模式啊.

求解答啊,,,,,,,


 回到顶部
帅哥哟,离线,有人找我吗?
sky-18
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
  发帖心情 Post By:2014/5/20 23:25:00 [只看该作者]

自己先顶一下,不知道狐爸和甜老师睡了没有.

 回到顶部
帅哥哟,离线,有人找我吗?
sky-18
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
  发帖心情 Post By:2014/5/21 0:06:00 [只看该作者]

再顶再顶

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/5/21 9:11: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 App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True


 回到顶部
帅哥哟,离线,有人找我吗?
sky-18
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:655 积分:5004 威望:0 精华:0 注册:2011/11/26 17:46:00
完美解决  发帖心情 Post By:2014/5/21 12:09:00 [只看该作者]

搞定,,不愧是甜老师.万分感谢

 回到顶部