ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

求用外部数据源做 数据透视表的链接和案例

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-4-17 23:45 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本人想通过外部数据导入来完成数据透视表(我用的是Excel 2003)
1.能一次导入两个或者多个格式一样的Excel表格;(由于每个表的数据量比较大,手工合并麻烦);
2.生成的图标和数据源是绑定在一起的,能不能生成多张表,每张表显示不同的内容,且每张表的格式不要边;(我自己生成了两种表,每当透视表中的选项换了后,图的格式就回到了以前的格式,还得再次调整图的格式)

以上两个问题困扰我很多时,今天特意来这里请教大家,请友人赐教,多谢!

TA的精华主题

TA的得分主题

发表于 2009-4-18 23:15 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
第一个问题见:http://club.excelhome.net/viewth ... p;page=1#pid2716668

TA的精华主题

TA的得分主题

发表于 2009-4-18 23:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

TA的精华主题

TA的得分主题

发表于 2009-4-18 23:58 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-4-19 01:18 | 显示全部楼层
首先感谢HanBei兄、Jssy兄的热心帮助:

1.HanBei兄提供的链接    杨版的SQL汇总  是我想要的解决办法,但是出现了一个问题:我的数据是250列,2000行,这时就出现了问题,说数据太大,合并出现错误,这种问题怎么解决?

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-4-19 03:28 | 显示全部楼层
'使用AddFields方法为数据表添加行,列和页字段,本例中“Data”为虚拟的数据字段,表示数据字段放置在透视表的列区域!
    pt.AddFields PageFields:="RNSSubNetId", PageFields:="Cell", ColumnFields:="Begin time"
        
    With pt.PivotFields("Number of Attempted RAB Establishment")
        .Orientation = xlDataField      '向透视表添加"期初余额借方"字段,放置在数据区域。
        .Position = 1                   '如果数据区域有多个字段,那么这个字段的位置放在第1。
        .Name = " Number of Attempted RAB Establishment"         '给字段重新命名。"
    End With
   
    With pt.PivotFields("Average Cell Freq RTWP(dbm)")

该语句实现自动生成数据透视表,但是我这句的写法有问题    pt.AddFields PageFields:="RNSSubNetId", PageFields:="Cell", ColumnFields:="Begin time",就是出现两个 PageFields的时候,只能显示一个,请问如何实现两个PageFields同时显示,同理,RowFields、ColumnFields如何显示!大家讨论一下,多谢!期待您的答复!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-30 11:10 , Processed in 0.045218 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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