Так же как и с двумя измерениями, координаты на каждом измерении через запятую.
Если хотите утром пришлю пример.

Ирина

----------------------------------------------------
This posting is provided "AS IS" with no warranties, and confers no rights

Вот код:

Dim adoConnection As ADODB.Connection
Dim adomdCellset As ADOMD.cellset
' create and open the connection
Set adoConnection = New ADODB.Connection
adoConnection.Open "Provider=MSOLAP;Data Source=local;Initial Catalog=Foodmart 2000"

Set adomdCellset = New ADOMD.cellset
Set adomdCellset.ActiveConnection = adoConnection
adomdCellset.Source = "select [Customers].[Country].members on 0, [Product].[Product Family].members on 1, [Time].[Year].members on 2 from Sales where [Measures].[Unit Sales]"
adomdCellset.Open

For i = 0 To adomdCellset.Axes(0).Positions.Count - 1
For j = 0 To adomdCellset.Axes(1).Positions.Count - 1
For k = 0 To adomdCellset.Axes(2).Positions.Count - 1
Debug.Print adomdCellset.Axes(0).Positions(i).Members(0).Name
Debug.Print adomdCellset.Axes(1).Positions(j).Members(0).Name
Debug.Print adomdCellset.Axes(2).Positions(k).Members(0).Name
Debug.Print adomdCellset.Item(i, j, k)
Next k
Next j
Next i

Ирина

----------------------------------------------------
This posting is provided "AS IS" with no warranties, and confers no rights

128.

Ирина

----------------------------------------------------
This posting is provided "AS IS" with no warranties, and confers no rights