Пришла пора спрашивать совета.
Думалось прицепить обработку в надстройку или Personal. Обнаружил такую неприятность...
Открываем другой файл (расширение не важно), берем данные (в примере ничего не берем), закрываем. Обычная работа с Workbooks.Open:
Запуск из редактора или кнопкой - без проблем, код отрабатывет полностью.
Если запускать назначенными клавишами (Ctrl+Shift+q) - вываливается после открытия другого файла.
Set wBook = Workbooks.Open(Filename:=sFName), отключение обновления экрана, окно выбора файла в отдельной процедуре, небольшая задержка перед/после открытия файла - то же самое, без изменений - файл открылся и процедура завершилась (без ошибок).
Почему и как обойти проблему?
Прошу помощи.
Win10, Office2010
Думалось прицепить обработку в надстройку или Personal. Обнаружил такую неприятность...
Открываем другой файл (расширение не важно), берем данные (в примере ничего не берем), закрываем. Обычная работа с Workbooks.Open:
Код |
---|
Sub testtest_() Dim sFName As String With Application.FileDialog(msoFileDialogFilePicker) If .Show = False Then MsgBox "Файл не выбран!", 48, "Ошибка": End Else sFName = .SelectedItems(1) End If End With ' With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With With Workbooks.Open(Filename:=sFName) .Close End With ' With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With MsgBox "OK", 64, "" End Sub |
Если запускать назначенными клавишами (Ctrl+Shift+q) - вываливается после открытия другого файла.
Set wBook = Workbooks.Open(Filename:=sFName), отключение обновления экрана, окно выбора файла в отдельной процедуре, небольшая задержка перед/после открытия файла - то же самое, без изменений - файл открылся и процедура завершилась (без ошибок).
Почему и как обойти проблему?
Прошу помощи.
Win10, Office2010