Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出EXCEL的排版问题2-如何优化


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

主题：导出EXCEL的排版问题2-如何优化
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/27 22:37:00 [显示全部帖子]

 算了，我还是不看你的逻辑了，本来想做的，太麻烦。说一下思路。

1、不需要用字典，你可以直接获取到 姓名和工号的，具体看getValues的帮助

Dim arys() As List(Of String()) = DataTables("进度").GetValues(team & "姓名",team & "工号", Filter)

2、不需要临时表，临时表里的内容，直接计算得出，直接赋值给excel表

3、一个book可以有多个sheet，可以新建多个sheet http://www.foxtable.com/help/topics/1465.htm

4、excel中超出单元格，无法换行。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/28 20:30:00 [显示全部帖子]

 sheet不需要确定个数，你可以建任意多个sheet的，不信你可以单独做一个例子测试。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/29 20:46:00 [显示全部帖子]

 不是很简单的么？你用一个循环就行了，参考。

Dim Book As New XLS.Book
Dim sheet As XLS.Sheet
sheet = book.Sheets(0)
sheet.name = "第一个表"

sheet = book.Sheets.Add("第二个表")
'写内容
'写内容

sheet = book.Sheets.Add("第三个表")
'写内容
'写内容

sheet = book.Sheets.Add("第四个表")
'写内容
'写内容

book.Save("d:\test.xls")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/29 21:01:00 [显示全部帖子]

 不是可以循环所有的人名的？写在循环里不就行了？只需要写一个

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