Использование Office365 в Windows 10.
Я пытаюсь вызвать диалоговое окно Сохранить программным способом, а затем сохранить открытый документ.
Минимальный тестовый случай:
Private Sub TestSave()
If Application.FileDialog(msoFileDialogSaveAs).Show Then
Application.FileDialog(msoFileDialogSaveAs).Execute
End If
End Sub
(Для реального кода я программно устанавливаю имя файла и фильтр по умолчанию, но они не нужны, чтобы показать проблему.)
Однако при вызове .Execute я получаю всплывающее окно с ошибкой :
Ошибка времени выполнения '-2147467259 (80004005)'
Команда не выполнена
Что это значит? Как мне это исправить? (Кнопка «Справка» в диалоговом окне ошибки не ведет ни к одной странице, объясняющей ошибку.)
Это происходит независимо от того, в какую папку я пытаюсь сохранить.