Страницы: 1
RSS
Ошибка в макросе при закрытии книги
 
Добрый день!

В поиске в сети нашел несколько похожих тем, но решения, примененные в темах, в данном макросе не помогают.
Подскажите, пожалуйста, что не так в моем макросе?

В файле с примером есть кнопка, при нажатии на которую выбирается файл и из него в активную книгу копируется определенный диапазон. После этого книга, из которой копировались данные, закрывается. Простая по сути конструкция, копирование проходит корректно, но в момент закрытия книги методом .Close происходит ошибка с кодом Subscript out of range.
Подскажите, пожалуйста, возможно в макросе ошибка?
 
В скобках коллекции "Workbooks" нужно указать имя файла без пути:
Код
Application.Workbooks(Dir(iopenfile)).Close

Можно по-другому сделать. У Вас макрос работает с активной книгой, значит можно закрыть активную книгу так:
Код
ActiveWorkbook.Close
 
Karataev, спасибо! Ваш способ сработал!
Извиняюсь, что не отписался сразу. Сначала не успел, а потом подзабыл.
Еще раз спасибо.
Страницы: 1
Наверх