Comments on: PivotTable Markup Language

By: Patrick O'Beirne

Patrick O'Beirne — Sat, 23 May 2009 16:42:00 +0000

It depends on the Pivottable.version

http://blogs.msdn.com/excel/archive/2006/08/30/730796.aspx
PivotTable Versioning
In Excel 12, the PivotTable version is associated with Compatibility Mode.
If your current workbook is in compatibility mode, new PivotTables created in that workbook
will be version 10 PivotTables.

http://www.experts-exchange.com/Microsoft/Applications/Q_24185001.html
You can test for a Page field's PivotItems with a xlPivotTableVersion12 Pivot Table but not in a xlPivotTableVersion10 Pivot Table.

IOW
.ShowAllItems = True
does NOT work, even in Excel 2007, if the pivottable is in 2003 compatibility mode

Neither does this.
Select one item in a list from the UI and then run this
For i = 1 To .PivotItems.Count
.PivotItems(i).Visible = True
Debug.Print i, .PivotItems(i).Name, .PivotItems(i).Visible
Next

You can set
...pagefields(x).currentpage="(All)"
which works when English is the locale

The only way I found to work is to hide the pagefield and restore it, which resets it to (All)
I hope that works for (Toutes) or (Alles) etc

.Orientation = xlHidden
.Orientation = xlPageField

By: Ryumike_55

Ryumike_55 — Wed, 29 Oct 2008 18:18:00 +0000

I came by this thread when trying to figure out how to make VBA show all pivotitems EXCEPT blanks. This didn't fix it for me, but gave me a clue. The way to do THAT, I finally figured out is

Public Function Pivot_AllPivotItems_NoBlanks()

With ActiveSheet.PivotTables("PivotTable7?).PivotFields("Device Type")
For x = 1 To .PivotItems.Count
.PivotItems(x).Visible = True
Next
.PivotItems("(blank)").Visible = False
End With

End Function

By: Dick Kusleika

Dick Kusleika — Wed, 29 Oct 2008 14:31:00 +0000

Vladamar: There should be a "not equal" sign between pvtItem.name and "Federal". The HTML parser assumes the less than sign is an html tag so it's not shown.

If pftItem.name <> "Federal Unemployment" Then

By: Vladamar Handarz

Vladamar Handarz — Tue, 28 Oct 2008 23:22:00 +0000

This totally didn’t work… this “Joice Fung” (as if that’s her real name) is wrong. Any smart people out there have a solution??

By: Joice fung

Joice fung — Mon, 09 Jun 2008 18:36:00 +0000

If the above doesn't work, you can try this:

set pvtTable = activesheet.pivottables("PivotTable1?)

for each pvtItem in pvtTable.pivotfields("Payroll Item").PivotItems
If pvtItem.name "Federal Unemployment" then
pvtItem.visible = false
end if
next pvtItem

By: Joice fung

Joice fung — Mon, 09 Jun 2008 18:26:00 +0000

You can do:

ActiveSheet.PivotTables("PivotTable1?).PivotFields("Payroll Item").ShowAllItems = False
ActiveSheet.PivotTables("PivotTable1?).PivotFields("Payroll Item").PivotItems("Federal Unemployment").Visible = True

By: Ola

Ola — Wed, 04 Jun 2008 23:17:00 +0000

A few links:
http://www.mydatabasesupport.com/forums/olap/162003-how-use-mdx-query-excel.html
http://sqlblog.com/blogs/marco_russo/archive/2007/01/18/display-the-mdx-query-of-an-excel-2007-pivottable.aspx
http://www.manageability.org/blog/stuff/open-source-java-business-intelligence

By: Simon Murphy

Simon Murphy — Thu, 22 May 2008 11:20:00 +0000

Rob good point
MDX (basically SQL for OLAP) probably contains most of what you need:

SELECT (a, b, c) ON COLUMNS, NON EMPTY (d) ON ROWS
FROM Some cube or other data source say a range
WHERE Some page field

(where a, b etc are field names)

MDX is in Analysis services and recent versions of Essbase, and lots of other tools so is maybe near enough a 'standard'?
If ADOMD worked against Excel ranges (does it??) that might give you what you need.

By: Rob van Gelder

Rob van Gelder — Thu, 22 May 2008 08:06:00 +0000

There is a language called MDX (Multidimensional Expressions)
Wikipedia on MDX
It's a property of the PivotTable class, but it errors if accessed for non OLAP types.

A quick Internet search reveals some efforts to translate between Pivottables and MDX.

By: Tushar Mehta

Tushar Mehta — Thu, 22 May 2008 01:50:00 +0000

Some would say you’ve gone over to the dark side, Dick. Put in the correct combinations of < , > , and / > and you would have the XML statements required to (re)create the PT! {gdr}