Public Sub exec(mdx As String)
'  Application.ScreenUpdating = False
'  Application.Calculation = xlCalculationManual
  
  On Error GoTo StandardErrorHandler
    
    Const intFirstReportRow As Integer = 6 'NOTE: there must be at least 2 rows between the filter area and the table
    Const strTemplateConnectionName As String = "AdventureWork" 'имя подключения на листе temp
    Const blnShowDebugMessage As Boolean = False
    
    ' Clear existing report if necessary 'предполагается что лист temp уже активен
    If ActiveSheet.ListObjects.Count > 0 Then
        ActiveSheet.ListObjects(1).Delete
    End If
    
    Cells(intFirstReportRow, 1).Select
    
    ' Set up connection, filters, mdx query
    Dim strCon As String, strMdx As String, strAllFilters As String, vntVisibleItems() As Variant, pf As PivotField
    Dim blnIteratingSet As Boolean, strHierarchyNameForSetBeingIterated As String
    
    strCon = ActiveWorkbook.Connections(1).OLEDBConnection.Connection 'номер подключения можно посмотреть по его имени в Immediate window
    blnIteratingSet = False
       
    strMdx = mdx 'ТУТ пример с mdx запросом, но может быть и любой ваш запрос
    
  ' Run the query
    Dim rngStart As Range
    Dim qtTable As QueryTable
    Set rngStart = ActiveSheet.Cells(intFirstReportRow, 1)
    Set qtTable = ActiveSheet.ListObjects.Add(SourceType:=xlSrcQuery, Source:=strCon, Destination:=rngStart).QueryTable 'тут таблице запросу присваивается новая строка подключения
  
'  On Error GoTo BindingErrorHandler
    With qtTable
        .ListObject.ShowHeaders = True
        .CommandText = strMdx 'новый запрос к базе
        .CommandType = xlCmdDefault
        .Refresh
    End With
    
  On Error GoTo StandardErrorHandler
    
    
   
StandardErrorHandler:
'Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic

    'MsgBox "Error: " & err.Description, vbOKOnly, Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
    Exit Sub
' Application.ScreenUpdating = True
'Application.Calculation = xlCalculationAutomatic
   
End Sub