Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Excel报表自动加上顶端标题行


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

主题：[求助]Excel报表自动加上顶端标题行
帅哥哟，离线，有人找我吗？
易服
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		[求助]Excel报表自动加上顶端标题行  发帖心情 Post By：2010/8/19 11:28:00 [只看该作者]

     以前EXCEL报表模板支持顶端标题行，现在如何在报表生成后用代码加上顶端标题行（不是

指定页首行的格式为<HeaderRow>）以便在打印时每页加上顶端标题行（Excel与VBA）。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/19 11:37:00 [只看该作者]

就用HeaderRow

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


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		  发帖心情 Post By：2010/8/19 15:14:00 [只看该作者]

《FoxTable操控Excel全攻略》应该有办法，没有找到示例。<HeaderRow>不美观也不利于复制数据。

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


加好友 发短信
等级：幼狐 帖子：191 积分：1653 威望：0 精华：1 注册：2012/2/8 22:07:00 		  发帖心情 Post By：2013/1/25 10:52:00 [只看该作者]

试下这段
    Dim Book As New XLS.Book(ProjectPath & "Attachments\模板-拆解参数.xls")
    Dim fl As String = SpecialFolder.MyDocuments & "\Reports\拆解规范\" & format(Date.Today(),"yyyy-MM-dd") & " 拆解参数.xls"
    StatusBar.Message2 = "已生成出库单，保存在【我的文档】下Roports\拆解规范 文件夹，文件名为：" & format(Date.Today(),"yyyy-MM-dd") & " 拆解参数.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)
    Ws.PageSetup.PrintTitleRows = "$1:$3"             '打印行标题(在每一页的顶部重复出现，指定第1到3行为行标题)
    App.Visible = True
    Ws.PrintPreview
    App.Quit

使用时修改模板表名

[此贴子已经被作者于2013-1-25 10:56:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
9EQ98
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：4407 威望：0 精华：0 注册：2014/1/16 16:55:00 		解决问题  发帖心情 Post By：2014/4/15 14:03:00 [只看该作者]

问题解决，但有点慢

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/5/30 7:27:00 [只看该作者]

传个例子让大家学习一下吧！

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/5/30 9:22:00 [只看该作者]

以下是引用发财在2014-5-30 7:27:00的发言：
传个例子让大家学习一下吧！

 

呃，这么简单的代码，还要传例子？

 

    Dim App As New MSExcel.Application

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PageSetup.PrintTitleRows = "$1:$3"             '打印行标题(在每一页的顶部重复出现，指定第1到3行为行标题)
    App.Visible = True
    Ws.PrintPreview
    App.Quit
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询