|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.10.2013, 13:00 | #1 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Макрос_Открытие книг Excel по очереди при условии отсутствия какой-либо книги
Постараюсь грамотно задать вопрос.
Вот макрос в Excel, открывает по очереди книги "С-ЗАП", "МОСК", "ГОРЬК" и "СЕВ" по пути \\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ. Макрос работает при условии что все книги находятся по указанному адресу, если же одной книги нет - выдает ошибку. Вопрос, как можно осуществлять нормальную работу данного макроса при отсутствии одной или двух книг Sub открытие() Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\С-ЗАП.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\МОСК.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\ГОРЬК.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\СЕВ.xlsx", Notify:= _ False End sub |
11.10.2013, 16:01 | #2 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
Код:
icq 584 308 611
|
14.10.2013, 10:32 | #3 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Вот дополнил макрос: но при отсутствии к примеру книги "СЕВ" в папке "ОТЧЕТ ПО ТОПЛИВУ" выдает ошибку "что не найден файл"
Sub открытие() On Error resume next Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\С-ЗАП.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\МОСК.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\ГОРЬК.xlsx", Notify:= _ False Workbooks.Open Filename:= _ "\\As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\СЕВ.xlsx", Notify:= _ False If Err.Namber then Err.Clear End sub Просьба поправить макрос так чтобы исключить вывод ошибки отсутствия книги, возможно ввод параметра "или" позволит устранить данную ошибку. Спасибо. Последний раз редактировалось Alexsandrr; 14.10.2013 в 10:38. |
14.10.2013, 12:27 | #4 |
Форумчанин
Регистрация: 19.09.2013
Сообщений: 597
|
Модератор по шапке надает кому-то...
Код:
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!! Последний раз редактировалось SaLoKiN; 14.10.2013 в 12:36. |
14.10.2013, 12:38 | #5 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
а так
Код:
icq 584 308 611
|
14.10.2013, 13:02 | #6 | |
Форумчанин
Регистрация: 19.09.2013
Сообщений: 597
|
Цитата:
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!! |
|
14.10.2013, 13:08 | #7 |
Форумчанин
Регистрация: 31.05.2010
Сообщений: 407
|
у меня 2003
icq 584 308 611
|
14.10.2013, 13:10 | #8 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
у меня 2010
|
14.10.2013, 17:00 | #9 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Вопрос решен не до конца, по прежнему Excel сообщает об отсутствии книги
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
лишние кавычки при сохранении книги excel в .txt | pooli | Microsoft Office Excel | 3 | 23.03.2011 12:43 |
excel изменение цвета при условии. не могу разобраться. | PRO100 BIN | Microsoft Office Excel | 9 | 20.03.2010 00:12 |
excel+vba странности взаимодействия при сохранении книги без макросов | alvazor | Microsoft Office Excel | 7 | 06.07.2009 17:22 |
Запуск какой либо Windows-программы из Excel средствами VBA | kovalevskivf | Microsoft Office Excel | 3 | 21.05.2009 15:14 |
Как запустить макрос при изменении другой книги Excel? | Град | Microsoft Office Excel | 12 | 10.06.2008 10:01 |