以文本方式查看主题

-  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=173793)

--  作者:lihe60
--  发布时间:2021/12/16 14:34:00
--  excel报表单元格不合并
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb

如题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:委托加工合同_成品加工.xls



--  作者:有点蓝
--  发布时间:2021/12/16 15:06:00
--  
1、先认真看几遍帮助:http://www.foxtable.com/webhelp/topics/1153.htm合并列数为0合并什么?!
2、合并后没有保存

--  作者:lihe60
--  发布时间:2021/12/16 15:23:00
--  
看了几遍,尝试过好多次,没有解决。
--  作者:有点蓝
--  发布时间:2021/12/16 15:25:00
--  
代码改成怎么样发上来看看
--  作者:lihe60
--  发布时间:2021/12/16 15:39:00
--  
就是项目中的代码
--  作者:lihe60
--  发布时间:2021/12/16 15:43:00
--  
Dim file As String
Dim Book As New XLS.Book(ProjectPath & "aaa\\委托加工合同_成品加工.xls")
Dim fl As String = ProjectPath & "Reports\\bb.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() \'生成细节区

Book = New XLS.Book(fl) \'打开模板
sheet = Book.Sheets(0)
Sheet.MergeCell(4,1,3,0)

Book.Save(fl) \'保存工作簿



Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

--  作者:有点蓝
--  发布时间:2021/12/16 16:03:00
--  
Dim file As String
Dim Book As New XLS.Book(ProjectPath & "aaa\\委托加工合同_成品加工.xls")
Dim fl As String = ProjectPath & "Reports\\bb.xls"
Book.Build() \'生成细节区
Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet.MergeCell(4,1,3,1)

Book.Save(fl) \'保存工作簿