共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：导出的交叉表能改进吗
1楼
sf951 发表于：2009/7/1 13:20:00生成的交叉表,导出的时候,他的列标题不尽人意,要是和狐表里的列标题一样就好了
此主题相关图片如下：未命名.jpg
此主题相关图片如下：未命名.jpg2楼
yangming 发表于：2009/7/1 13:59:00那就不导出,直接打印表
3楼
sf951 发表于：2009/7/1 14:11:00就是需要电子表格的文档了.
4楼
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()
Tables("表A").SaveExcel(ProjectPath & "Attachments\季度表.xls","表A",False)
Dim Result As DialogResult
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Attachments\季度表.xls"
Proc.Start()
5楼
sf951 发表于：2009/7/1 15:11:00谢谢!
6楼
sf951 发表于：2009/7/1 15:26:00刚才试了一下,完全达到我的设想,谢谢了!
7楼
狐狸爸爸 发表于：2009/7/1 15:52:00其实你可以用Excel报表生成，在模板中绘制好表头即可，很简单的
[此贴子已经被作者于2009-7-1 15:52:49编辑过]
8楼
sf951 发表于：2009/7/1 17:53:00还是用Tables.SaveExcel来得快些,呵呵
共8 条记录, 每页显示 10 条, 页签:
[1]