ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1592|回复: 6

[求助] 重大发现!根据页字段列出其内容,接近答案,恳求指点

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-6-10 14:36 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
接近答案了!
在微软的MSDN网站上找到这么一个帮助网页
http://msdn.microsoft.com/en-us/library/bb208686.aspx
参照着用了如下的代码

Sub getlist()
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("PivotTable").Range("A1").PivotTable
rw = 0
For Each pvtItem In pvtTable.PivotFields("category").HiddenItems
    rw = rw + 1
    nwSheet.Cells(rw, 1).Value = pvtItem.Name
Next pvtItem
End Sub

现在我可以列出页字段里的内容了!
但是,新问题是:
我需要列出到事先指定的工作表(worksheet)里
而不是每次新增工作表

这个问题对于各位大拿来说可能是小手指一挥的事情
对于我这个初学者却实在为难
自己也试着改了代码
都没成功

各位老大,这次总算能出面给支个招了吧?
保持等待……

已更新附件
下面是2009/06/10的时候的原问题

===============
附件所示
Sheet1("Data")是原始数据
Sheet2("PivotTable")是根据Sheet1生成的数据透视表

在Sheet3("HELP")里,需要根据Sheet2的数据透视表中所显示的页字段,
列出该页字段中的内容一览

请教如何能够做到?
===============
恳请指点!

[ 本帖最后由 seekdis 于 2009-6-25 16:40 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-6-10 16:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
简单做了个动画,准标的数据透视表
透视表.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-11 08:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢楼上的回复
但是,这不是我要的答案
看来是我没表达清楚

我的意思是
需要在Sheet3("HELP")里,
把数据透视表中所显示的页字段,
自动另外列出在Sheet3!B1:B2里

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-24 10:02 | 显示全部楼层
日子过了很多天
困难一点都没变

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-24 10:17 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
东碰西撞,始终回避不了这个难题
恳请各位老大给个指点
就算说是无解也好
至少也能让我死心了……

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-24 10:20 | 显示全部楼层
哪位能告诉我excel里的"页字段" 用英语怎么说?
打算到google上搜一下英语,看看世界范围内有没有答案了

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-25 15:16 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-27 10:31 , Processed in 0.036362 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表