Foxtable(狐表)用户栏目专家坐堂 → 导出的交叉表能改进吗


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

主题:导出的交叉表能改进吗

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


加好友 发短信
等级:婴狐 帖子:20 积分:389 威望:0 精华:0 注册:2008/9/15 11:58:00
导出的交叉表能改进吗  发帖心情 Post By:2009/7/1 13:20:00 [只看该作者]

生成的交叉表,导出的时候,他的列标题不尽人意,要是和狐表里的列标题一样就好了
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
yangming
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/1 13:59:00 [只看该作者]

那就不导出,直接打印表

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


加好友 发短信
等级:婴狐 帖子:20 积分:389 威望:0 精华:0 注册:2008/9/15 11:58:00
  发帖心情 Post By:2009/7/1 14:11:00 [只看该作者]

就是需要电子表格的文档了.


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/7/1 14:45:00 [只看该作者]

下面的代码保存的EXCEL后比导出的表更方便改动

Tables("表A").SaveExcel(ProjectPath & "Attachments\季度表.xls","表A",False)
Dim Result As DialogResult
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Attachments\季度表.xls"
Proc.Start()

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


加好友 发短信
等级:婴狐 帖子:20 积分:389 威望:0 精华:0 注册:2008/9/15 11:58:00
  发帖心情 Post By:2009/7/1 15:11:00 [只看该作者]

谢谢!

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


加好友 发短信
等级:婴狐 帖子:20 积分:389 威望:0 精华:0 注册:2008/9/15 11:58:00
  发帖心情 Post By:2009/7/1 15:26:00 [只看该作者]

刚才试了一下,完全达到我的设想,谢谢了!

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/1 15:52:00 [只看该作者]

其实你可以用Excel报表生成,在模板中绘制好表头即可,很简单的

[此贴子已经被作者于2009-7-1 15:52:49编辑过]

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


加好友 发短信
等级:婴狐 帖子:20 积分:389 威望:0 精华:0 注册:2008/9/15 11:58:00
  发帖心情 Post By:2009/7/1 17:53:00 [只看该作者]

还是用Tables.SaveExcel来得快些,呵呵

 回到顶部