Public g_BexApp As BExApi.BExApplication
.....
g_BexApp.Synchronize = True

Dim wb As Workbook, syswb As Workbook
  Dim sw As Worksheet, et As Worksheet, infows As Worksheet, dws As Worksheet, swsys As Worksheet
  Dim pEnv1 As Boolean, pEnv2 As Boolean, pEnv3 As Boolean
  Set syswb = ThisWorkbook
  ' переменные для работы с bex api
  On Error Resume Next
  Err.Clear
  'Application.StatusBar = "Идет загрузка данных..."
  If Not FileUtils.IsFileExist(aFilePath) Then
    MsgBox "Указанный файл не существует.", vbOKOnly, "Ошибка"
    ImportFromFile = 20
    Exit Function
  End If
 
  #If Not gDebug Then
    pEnv1 = Tools.SetDisplayAlerts(False): pEnv2 = Tools.SetEnableEvents(False): pEnv3 = Tools.SetScreenUpdating(False)
  #End If
 
  Set wb = Application.Workbooks.Open(aFilePath)
  wb.Windows(1).Visible = False
  If Err.Number <> 0 Then
    MsgBox "Не удалось открыть документ.", vbOKOnly, "Ошибка"
    Err.Clear
    ImportFromFile = 30
    GoTo final
  End If
  '
  Set sw = wb.Worksheets(cReportList)
  If Err.Number <> 0 Then
    MsgBox "Лист " & cReportList & " не найден в книге.", vbOKOnly, "Ошибка"
    Err.Clear
    ImportFromFile = 31
    GoTo final
  End If
  '
  Set swsys = wb.Worksheets(cSysList)
  If Err.Number <> 0 Then
    MsgBox "Лист " & cSysList & " не найден в книге.", vbOKOnly, "Ошибка"
    Err.Clear
    ImportFromFile = 31
    GoTo final
  End If
  '
  If CheckQParms(syswb.Worksheets(gWsName), swsys) <> 0 Then
    ImportFromFile = 32
    GoTo final
  End If
  Call ProgressBarLib.InitProgressBar("Идет загрузка данных...", 0, cQCountMax + cVCount, 0)
  Call ProgressBarLib.NextStep
  ' BEx API Connect to Bex server & refresh data
  syswb.Activate
  BexUtils.StartBexApp
  If Not BexUtils.ConnectBex Then
    Call ProgressBarLib.CloseProgressBar
    MsgBox "Не установлено соединение с сервером.", vbOKOnly, "Ошибка"
    Err.Clear
    ImportFromFile = 41
    GoTo final
  End If
'  Call ProgressBarLib.NextStep
  BexUtils.g_BexApp.Refresh (False)
  BexUtils.g_BexApp.FrontendUpdate
  BexUtils.g_BexApp.Synchronize = True----Тут падает