以文本方式查看主题

-  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=51152)
--  作者：sky-18
--  发布时间：2014/5/20 23:23:00
--  excel报表合并模式问题
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
--  发布时间：2014/5/20 23:25:00
--  
自己先顶一下,不知道狐爸和甜老师睡了没有.
--  作者：sky-18
--  发布时间：2014/5/21 0:06:00
--  
再顶再顶
--  作者：有点甜
--  发布时间：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
--  发布时间：2014/5/21 12:09:00
--  完美解决
搞定,,不愧是甜老师.万分感谢