以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出的交叉表能改进吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3380)

--  作者:sf951
--  发布时间:2009/7/1 13:20:00
--  导出的交叉表能改进吗
生成的交叉表,导出的时候,他的列标题不尽人意,要是和狐表里的列标题一样就好了
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

--  作者:yangming
--  发布时间:2009/7/1 13:59:00
--  
那就不导出,直接打印表
--  作者:sf951
--  发布时间:2009/7/1 14:11:00
--  

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


--  作者:yangming
--  发布时间: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
--  发布时间:2009/7/1 15:11:00
--  
谢谢!
--  作者:sf951
--  发布时间:2009/7/1 15:26:00
--  
刚才试了一下,完全达到我的设想,谢谢了!
--  作者:狐狸爸爸
--  发布时间:2009/7/1 15:52:00
--  

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

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

--  作者:sf951
--  发布时间:2009/7/1 17:53:00
--  
还是用Tables.SaveExcel来得快些,呵呵