|
有没有透视表按指定维自动展开的属性，而不用按以下代码这样写死（实际情况也不允许写死，因为不同用户取得的区域范围是不同的）。
查了些帮助，还是没有找到解决的办法，请各位指点。
ActiveSheet.PivotTables("数据透视表1").CubeFields(2).TreeviewControl.Drilled = Array _
(Array("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", _
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""), _
Array("[客户].[大区].[所有 客户].[北京区]", "[客户].[大区].[所有 客户].[东北区]", "[客户].[大区].[所有 客户].[国外客户]", "[客户].[大区].[所有 客户].[华北区]", "[客户].[大区].[所有 客户].[华东区]", "[客户].[大区].[所有 客户].[华南区]", "[客户].[大区].[所有 客户].[其它区]", _
"[客户].[大区].[所有 客户].[上海区]", "[客户].[大区].[所有 客户].[深圳区]", "[客户].[大区].[所有 客户].[西北区]", "[客户].[大区].[所有 客户].[西南区]", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""), _
Array("[客户].[大区].[所有 客户].[北京区].[北京区]", _
"[客户].[大区].[所有 客户].[东北区].[黑龙江办]", "[客户].[大区].[所有 客户].[东北区].[吉林办]", "[客户].[大区].[所有 客户].[东北区].[辽宁办]", "[客户].[大区].[所有 客户].[国外客户].[出口办]", _
"[客户].[大区].[所有 客户].[华北区].[河北办]", "[客户].[大区].[所有 客户].[华北区].[河南办]", "[客户].[大区].[所有 客户].[华北区].[山东办]", "[客户].[大区].[所有 客户].[华北区].[山西办]", _
"[客户].[大区].[所有 客户].[华北区].[天津办]", "[客户].[大区].[所有 客户].[华东区].[安徽办]", "[客户].[大区].[所有 客户].[华东区].[湖北办]", "[客户].[大区].[所有 客户].[华东区].[湖南办]", _
"[客户].[大区].[所有 客户].[华东区].[苏北办]", "[客户].[大区].[所有 客户].[华东区].[苏南办]", "[客户].[大区].[所有 客户].[华东区].[浙北办]", "[客户].[大区].[所有 客户].[华东区].[浙南办]", _
"[客户].[大区].[所有 客户].[华南区].[福建办]", "[客户].[大区].[所有 客户].[华南区].[广西办]", "[客户].[大区].[所有 客户].[华南区].[广州办]", "[客户].[大区].[所有 客户].[华南区].[海南办]", _
"[客户].[大区].[所有 客户].[华南区].[江西办]", "[客户].[大区].[所有 客户].[华南区].[粤东办]", "[客户].[大区].[所有 客户].[其它区].[调拨办]", "[客户].[大区].[所有 客户].[其它区].[零售办]", _
"[客户].[大区].[所有 客户].[其它区].[内销办]", "[客户].[大区].[所有 客户].[其它区].[其他办]", "[客户].[大区].[所有 客户].[上海区].[上海区]", "[客户].[大区].[所有 客户].[深圳区].[深圳区]", _
"[客户].[大区].[所有 客户].[西北区].[甘肃办]", "[客户].[大区].[所有 客户].[西北区].[陕西办]", "[客户].[大区].[所有 客户].[西北区].[新疆办]", "[客户].[大区].[所有 客户].[西南区].[贵州办]", _
"[客户].[大区].[所有 客户].[西南区].[四川办]", "[客户].[大区].[所有 客户].[西南区].[云南办]", "[客户].[大区].[所有 客户].[西南区].[重庆办]"))
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-3-9 17:16
楼主