На счет Кристала не знаю, а в Excel, по-видимому, нет, п.ч. для PivotTable св-во MDX - Returns a String indicating the MDX (Multidimensional Expression) that would be sent to the provider to populate the current PivotTable view. Read-only . И ведь действительно read-only, падла. Тогда я проверил еще одну лазейку:
Dim pc As PivotCache
Set pc = Worksheets(1).PivotTables(1).PivotCache
pc.CommandText = "select Customers.Country.Members on columns, Product.Members on rows from Sales where (Time.[1997], [Measures].[Store Sales])"
pc.Refresh
Тоже послала, потому что у pc.CommandType четыре возможных значения: xlCmdCube. Contains a cube name for an OLAP data source.
xlCmdDefault. Contains command text that the OLE DB provider understands.
xlCmdSql. Contains an SQL statement.
xlCmdTable. Contains a table name for accessing OLE DB data sources.
Последние 2 ругаются на синтаксис, что очевидно, а первые тоже не воспринимают MDX как источник. Хотят весь куб целиком :(