Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何合并列


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

主题：[求助]如何合并列
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		[求助]如何合并列  发帖心情 Post By：2015/9/8 16:58:00 [只看该作者]

请教如何合并Excel报表全部列,包括有数据行和空行,请看表格
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:销售通知单.xls
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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

 
 回到顶部
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		  发帖心情 Post By：2015/9/8 17:10:00 [只看该作者]

大红袍老师
我是直接用的系统地打印输出功能,编好了模板,直接用的生成报表按钮,这是已经打开了
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/8 17:11:00 [只看该作者]

用方法1合并；

 

不行，就用方法2，用代码合并要合并的单元格。
 回到顶部
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		  发帖心情 Post By：2015/9/8 17:14:00 [只看该作者]

方法1只能合并有数据的行,不能全部合并
方法2,已经打开的工作簿不能操作
 回到顶部
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		  发帖心情 Post By：2015/9/8 17:15:00 [只看该作者]

那个事件能不能有办法?


 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/8 17:16:00 [只看该作者]

方法2：可以用报表事件合并单元格

 

http://www.foxtable.com/help/topics/1153.htm

 

http://www.foxtable.com/help/topics/1960.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		  发帖心情 Post By：2015/9/8 17:19:00 [只看该作者]

大红袍老师
报表文件已经打开,如何引用,请给个代码
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/9/8 17:22:00 [只看该作者]

以下是引用sunsenfeng在2015/9/8 17:19:00的发言：
大红袍老师
报表文件已经打开,如何引用,请给个代码

 

看7楼事件。
 回到顶部
帅哥哟，离线，有人找我吗？
sunsenfeng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：599 积分：4188 威望：0 精华：0 注册：2011/12/21 11:25:00 		  发帖心情 Post By：2015/9/8 18:09:00 [只看该作者]

大红袍老师,在AfterBuild中用一下代码

Dim Sheet As XLS.Sheet
Sheet=e.book.sheets(0)
Sheet.mergecell(5,8,17,1)

非常感谢指导
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询