以文本方式查看主题 -  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=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) \'保存工作簿