Office中国论坛/Access中国论坛

标题: 请教如何将主窗里的子窗体（数据透视表）结果导到EXCEL？ [打印本页]

作者: goto2008 时间: 2007-8-9 14:31
标题: 请教如何将主窗里的子窗体（数据透视表）结果导到EXCEL？
请各位看看图片和库

作者: goto2008 时间: 2007-8-10 09:24
请大侠指教哦。。这个问题很急的。。

作者: zyb9335 时间: 2007-8-10 15:57
学习后可以解决
http://www.accessoft.com/cgi-bin ... .showtopic.117.html

作者: goto2008 时间: 2007-8-10 16:28
你链接的这个网址是竹笛的开发平台。。
和解决数据透视表导出的问题。。。关联在哪？
我不是很明白哦。。

望大哥给予指导一下

作者: sgrshh29 时间: 2007-8-10 16:45
1、用工具栏中的命令按钮，具体用法查看access的帮助文件
2、使用下面的代码将“数据透视表”视图导出至 Excel
PivotTable.Export "此处是您的文件名", plExportActionOpenInExcel
注：您可能需要此代码来利用 Excel 的更高级数据透视功能，具体查看excel中的帮助

作者: liwen 时间: 2007-8-10 17:50
Me.数据透视子窗.SetFocus
SendKeys "^e"

[ 本帖最后由 liwen 于 2007-8-10 20:49 编辑 ]

作者: liwen 时间: 2007-8-10 21:39
sgrshh29这个方法不错，但不知为何在我一台电脑中不能定义：dim objchartSpace as access.form.pivottable，后面的常量plExportActionOpenInExcel也不能使用，但下面的表达能通过。

Dim objChartSpace
Set objChartSpace = Me.数据透视子窗.Form.PivotTable
objChartSpace.export "test.xls"

作者: goto2008 时间: 2007-8-11 08:11
大哥，不知乍滴。。用了你的方法，
每次导到EXCEL总会弹出这个。。

作者: goto2008 时间: 2007-8-11 09:04
再请教个问题。
如果一打开这个窗体时，

能让子窗体。。。。全部打勾？

这样，子窗体就不会保留上次筛选的结果了，不然每次打开，还得人为一个一个去打勾。。。
很麻烦

作者: liwen 时间: 2007-8-11 11:47
用sgrshh29这个方法指定文件名，就不会弹出那个提示，去掉后面那个文件名就会象你上面一样弹出提示。
Me.数据透视子窗.Form.PivotTable.export "test.xls"

作者: liwen 时间: 2007-8-11 12:48
“子窗体不保留上次筛选的结果”这是你以前的问题的答案，放在窗体的打开事件里即可：

Me.数据透视子窗.Form.PivotTable.ActiveView.IsFiltered = False

作者: Henry D. Sy 时间: 2007-8-11 18:30
DoCmd.OpenForm "aa", acFormPivotTable
DoCmd.RunCommand acCmdPivotTableExportToExcel
Forms!aa.Visible = False

在按钮单击事件中写入以上代码
aa为原数据透视表窗体

作者: Henry D. Sy 时间: 2007-8-11 18:44

原帖由 dddddd 于 2007-8-11 18:30 发表
DoCmd.OpenForm "aa", acFormPivotTable
DoCmd.RunCommand acCmdPivotTableExportToExcel
Forms!aa.Visible = False

在按钮单击事件中写入以上代码
aa为原数据透视表窗体

给你个例子

作者: goto2008 时间: 2007-8-11 19:02
奇怪。。。

我把你的代码搬到我自己的库后，，，还是会提示那个什么“加载期间出现的错误”

而你的库不会出现这样的问题呀。

作者: goto2008 时间: 2007-8-11 19:17
我把库传上来。。大伙给看看这库毛病出在哪

[ 本帖最后由 goto2008 于 2007-8-11 19:24 编辑 ]

作者: Henry D. Sy 时间: 2007-8-11 21:48
透视表窗体错误

作者: myncepu 时间: 2010-4-23 09:26
楼主的附件为何还加密码了啊，打不开啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)