Foxtable(狐表)用户栏目专家坐堂 → [求助]excel报表(已解决)


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

主题:[求助]excel报表(已解决)

帅哥哟,离线,有人找我吗?
yyzlxc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]excel报表(已解决)  发帖心情 Post By:2012/10/26 10:18:00 [只看该作者]

做了一个excel的模版,要求部分数据竖排,执行下面的代码后,部分数据不能显示,应该如何解决,请各位老师指教,谢谢!!

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\个人奖金基本资料清单.xls")
Dim fl As String = ProjectPath & "Reports\个人奖金基本资料清单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    '在页脚右边打印页号和总页数
    .Footer = "&R第&P页,总&N页"
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

模版视图:

 


图片点击可在新窗口打开查看此主题相关图片如下:o.jpg
图片点击可在新窗口打开查看

生成的表视图:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:p.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-10-26 12:01:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/10/26 10:32:00 [只看该作者]

不显示和这个代码无关,做个简单一点的例子,连同数据表和模版一起发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2012/10/26 11:20:00 [只看该作者]

谢谢狐爸老师的回复,现将案例上传,请指教,谢谢!!

 

 (在命令窗口运行一楼的代码)

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/26 11:39:00 [只看该作者]

 楼主,是你的列名写错了,少写了一个 _

 [部门_1]

 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2012/10/26 12:00:00 [只看该作者]

谢谢lin_hailun老师的指教,问题解决,再次感谢!!

 回到顶部