Sub ИмпортИзOLAP()

Dim Cn As Object
Dim РекордсетИмпорт As Object

Set Cn = CreateObject("ADODB.Connection")
Cn.ConnectionString = "Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=profit;Data Source=...;MDX Compatibility=1;Safety Options=2;MDX Missing Member Mode=Error"
Cn.Open

Set РекордсетИмпорт = CreateObject("ADODB.Recordset")
Set РекордсетИмпорт.activeconnection = Cn
РекордсетИмпорт.Source = "SELECT [Measures].[Отгрузки шт] On 0, NON EMPTY [Торговые точки].[Клиент].[Клиент] ON 1 FROM PROFIT"

On Error GoTo er
РекордсетИмпорт.Open
On Error GoTo 0
...
End sub