Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Тимур
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
10.03.2021 09:00:01
добавлял, ошибка 400. Хотелось бы понять, каким образом скрытый лист становится открытым, не имея для того каких-либо оснований и почему это происходит не каждый раз при открытии файла?

P.S.
Ошибка 400 из-за того, что ThisWorkbook.Sheets("Auto_model_ListDocId").Visible = False нужно поставить не перед строкой Application.ScreenUpdating = True, а перед строкой защиты книги. Собственно, поставив  скрытие листа "Auto_model_ListDocId" в процедуру после обновления одноименного запроса, проблема с периодически открытым листом была снята. Хоть природа сего явления так и осталась загадкой  
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
09.03.2021 19:07:33
Дмитрий(The_Prist) Щербаков, On Error Resume Next убирал, никаких ошибок не выявлялось, код работал также. Ваш вариант РАБОТАЕТ, благодарю!!!

Можно последний вопрос :) ? Почему периодически, после отработки кода ниже, лист Auto_model_ListDocId, становится видимым, хотя изначально он скрыт и нигде в коде он не открывается. Это проявляется через раз.
Код
Private Sub Workbook_Open()'обновление данных из хранилища
    Application.ScreenUpdating = False
    ThisWorkbook.Unprotect Password:="ae,l"
    DoEvents
     
    With ThisWorkbook.Connections("Запрос — PriceF_Spr").OLEDBConnection
        .BackgroundQuery = False
        .Refresh
    End With
    With ThisWorkbook.Connections("Запрос — Слияние1").OLEDBConnection
        .BackgroundQuery = False
        .Refresh
    End With
    With ThisWorkbook.Connections("Запрос — Auto_model_ListDocId").OLEDBConnection
        .BackgroundQuery = False
        .Refresh
    End With
    Application.OnTime Now + TimeSerial(0, 0, 5), Me.CodeName & ".SaveMe"
End Sub
Sub SaveMe()
    ThisWorkbook.Save
    ThisWorkbook.Protect Password:="ae,l"
    ThisWorkbook.Worksheets("(СЗ)").Activate
    Application.ScreenUpdating = True
    MsgBox ("Данные модели обновлены")
End Sub
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
09.03.2021 14:47:20
Дмитрий(The_Prist) Щербаков, результат не изменился "Загрузка не была завершена"

sokol92, был бы признателен за пример, что-то не нахожу такого события (Excel 2016)
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
09.03.2021 13:00:27
Дмитрий(The_Prist) Щербаков, в той же книге, источник данных запросов в хранилище
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
09.03.2021 12:11:58
Код
Private Sub Workbook_Open()
'обновление запросов из хранилища
On Error Resume Next

Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="ae,l"

Sheets("Auto_model").Visible = True
Sheets("Auto_model_ListDocId").Visible = True
Sheets("Вспомогательный").Visible = True
 
With ThisWorkbook.Connections("Запрос — PriceF_Spr").OLEDBConnection
.BackgroundQuery = False
.Refresh
'Do While .Refreshing
    'DoEvents
'Loop
End With

''''''''''''''''''''''''''''
Application.Wait Time:=Now + TimeSerial(0, 0, 5)
With ThisWorkbook.Connections("Запрос — Слияние1").OLEDBConnection
.BackgroundQuery = False
.Refresh
 Do While .Refreshing
    DoEvents
  Loop
End With

'''''''''''''''''''''''''''''
With ThisWorkbook.Connections("Запрос — Auto_model_ListDocId").OLEDBConnection
.BackgroundQuery = False
.Refresh

End With


ActiveWorkbook.Save

Sheets("Auto_model").Visible = False
Sheets("Auto_model_ListDocId").Visible = False
Sheets("Вспомогательный").Visible = False
   
ActiveWorkbook.Protect Password:="ae,l"
ThisWorkbook.Worksheets("(СЗ)").Activate
Application.ScreenUpdating = True
End Sub
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
09.03.2021 10:04:54
Inexsu, пробовал перед, после, внутри With  :)  Итог тот же... Без остановки в режиме отладки - не работает, либо не включать защиту книги, что по условиям - недопустимо.
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
05.03.2021 14:02:15
Ігор Гончаренко, к сожалению результат не изменился
 
Перейти    
Обновленный через VBA запрос с предупреждением "Загрузка не была завершена"
 
#
05.03.2021 12:23:08
Добрый день!
Прошу подсказать, имеется часть кода (обновление запроса Powert Query):

Код
With ThisWorkbook.Connections("Запрос — Слияние1").OLEDBConnection 
.BackgroundQuery = False
.Refresh
End With

Проблема в том, что в конце общего кода, должна срабатывать защита книги и в этом случае Запрос - Слияние1 выдает предупреждение "Загрузка не была завершена", таблица источником данных которой является запрос - также не обновляется.

Если защиту книги не ставить - все обновляется. Если проходить код построчно в редакторе все также работает.

Есть предположение, что запрос не успевает обновиться до срабатывания защиты, хотя я, видимо ошибочно, думал, что .BackgroundQuery = False должно помочь избежать этого.

Прошу помочь в решении проблемы обновления запроса с защитой книги.

Заранее благодарен.
 
Перейти    
Страницы: 1
Наверх