Excel VBA: Workbooks.Open(absolute_path) замораживает Excel, за исключением одного условия
Под этой строкой кода Workbooks.Open(previous_absolute_path) большую часть времени замораживает Excel, не выдавая сообщения об ошибке:
Set current_workbook = Workbooks(get_file_name(current_absolute_path))
Окружающий код:
If IsWorkBookOpen((current_absolute_path)) = False Then
If previous_absolute_path <> "" And previous_absolute_path <> current_absolute_path Then
Workbooks(get_file_name(previous_absolute_path)).Close True
End If
Set current_workbook = Workbooks.Open(current_absolute_path)
previous_absolute_path = current_absolute_path
Else
Set current_workbook = Workbooks(get_file_name(current_absolute_path)) 'Causes Fail!
End If
current_absolute_path
является допустимым путем к файлу, который является абсолютным. Кажется, что каждый раз, когда запускается код, по крайней мере, открываются окна. Тем не менее, в недавно открытой книге, ни одна строка кода никогда не выполняется в ееworkbook_open()
из того, что я могу сказать, поместив окно сообщения в качестве первой строки кодаworkbook_open()
и окно сообщения никогда не появляется.
Код работает, если и только если у меня есть книга, на которой запущен этот макрос, и перед тем, как запустить этот макрос, я вручную открываю книгу на current_absolute_path
, Я закрываю этот файл и запускаю макрос, и он работает без проблем.
current_absolute_path
является подтвержденным допустимым путем к файлу. Строка кода может открыть другие книги в той же папке. На данный момент Excel разрешает все макросы и "доверяет" файлам из Интернета. Папка открываемой книги не защищена... и у меня пока нет навыков, чтобы узнать, в чем проблема. Что должно быть сделано?
РЕДАКТИРОВАТЬ: это не открывает книгу вручную, что приводит к успешному выполнению макроса Excel в следующий раз, в частности его закрытие вручную.