Sub Обновление()
    Application.ScreenUpdating = False ' Не показывает как работает макрос
    Application.DisplayAlerts = False ' Отключает системные окна
    
    
    Dim conn As New ADODB.Connection
    Dim iRowNo As Integer
    Dim Отделение, subbranch_id, ДатаСмена, Часы, Смена, week_of_year_number, Приемка, Упаковка, Разгрузка, Размещениенаячейкивыдачи, Размещениенаячейкиконсолидации, Погрузка, Выдача  As String
  
    With Sheets("Табель")
            
        'Open a connection to SQL Server
        conn.Open "Provider=SQLOLEDB;Data Source=v-dcr-bi;Initial Catalog=DWH;Integrated Security=SSPI; Timeout=10000000000"
            
        Db1 = CStr(ThisWorkbook.Worksheets("Табель").Range("D1").Value)
        Db2 = CStr(ThisWorkbook.Worksheets("Табель").Range("B1").Value)
        
        Db3 = CStr(ThisWorkbook.Worksheets("Табель").Range("F1").Value)
        conn.Execute "EXEC DWH.[dbo].[SP_FACT_operations_mdx_CumulativeTotal_ПрофильСклада_ST1]" & CStr(Db3) & " , " & CStr(Db2) '" exec dwh.[dbo].[SP_mdx_ПрофильСклада]"
        conn.Execute "exec dwh.[dbo].[SP_FACT_operations_mdx_CumulativeTotal_ПрофильСклада_ST2]" & CStr(Db1) & " , " & CStr(Db2)
        
        MsgBox "Накопительный Итог Пересчитан"
           
        conn.Close
        Set conn = Nothing
             
    End With
  
End Sub