- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何合并列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74329)
-- 发布时间：2015/9/8 16:58:00
-- [求助]如何合并列
请教如何合并Excel报表全部列,包括有数据行和空行,请看表格
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:销售通知单.xls |
-- 发布时间：2015/9/8 17:06:00
--
1、看 http://www.foxtable.com/help/topics/1530.htm
2、用代码合并
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1:D10")
App.DisplayAlerts = False \'加上此行可禁止弹出合并前的提示
Rg.Merge \'合并指定区域的单元格
\'Rg.MergeCells = True \'用这种方式也可以合并
App.Visible = True
-- 发布时间：2015/9/8 17:10:00
--
大红袍老师
我是直接用的系统地打印输出功能,编好了模板,直接用的生成报表按钮,这是已经打开了
-- 发布时间：2015/9/8 17:11:00
--
用方法1合并；
不行，就用方法2，用代码合并要合并的单元格。
-- 发布时间：2015/9/8 17:14:00
--
方法1只能合并有数据的行,不能全部合并
方法2,已经打开的工作簿不能操作
-- 发布时间：2015/9/8 17:15:00
--
那个事件能不能有办法?
-- 发布时间：2015/9/8 17:16:00
--
方法2：可以用报表事件合并单元格
http://www.foxtable.com/help/topics/1153.htm
http://www.foxtable.com/help/topics/1960.htm
-- 发布时间：2015/9/8 17:19:00
--
大红袍老师
报表文件已经打开,如何引用,请给个代码
-- 发布时间：2015/9/8 17:22:00
--
以下是引用sunsenfeng在2015/9/8 17:19:00的发言：
大红袍老师
大红袍老师
报表文件已经打开,如何引用,请给个代码
看7楼事件。
-- 发布时间：2015/9/8 18:09:00
--
大红袍老师,在AfterBuild中用一下代码
Dim Sheet As XLS.Sheet
Sheet=e.book.sheets(0)
Sheet.mergecell(5,8,17,1)
非常感谢指导