Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.10.2013, 13:00   #1
Alexsandrr
Пользователь
 
Регистрация: 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
Alexsandrr вне форума Ответить с цитированием
Старый 11.10.2013, 16:01   #2
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

Код:
Sub открытие()
On Error resume next
'......
If Err.Namber then Err.Clear
End sub
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Старый 14.10.2013, 10:32   #3
Alexsandrr
Пользователь
 
Регистрация: 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.
Alexsandrr вне форума Ответить с цитированием
Старый 14.10.2013, 12:27   #4
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Модератор по шапке надает кому-то...
Код:
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
У меня не ругается c такой конструкцией.
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!

Последний раз редактировалось SaLoKiN; 14.10.2013 в 12:36.
SaLoKiN вне форума Ответить с цитированием
Старый 14.10.2013, 12:38   #5
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

а так
Код:
Workbooks.Open Filename:= _
 "As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\С-ЗАП.xlsx", Notify:= _
 False
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Старый 14.10.2013, 13:02   #6
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Цитата:
а так
Код:

Workbooks.Open Filename:= _
"As3\ftp\FPDmto\Формы отчетности\Централизованные поставки\ОТЧЕТ ПО ТОПЛИВУ\С-ЗАП.xlsx", Notify:= _
False
ахахаха, как вы думаете что я отвечу? Конечно же ругается!
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!
SaLoKiN вне форума Ответить с цитированием
Старый 14.10.2013, 13:08   #7
gaw4
Форумчанин
 
Регистрация: 31.05.2010
Сообщений: 407
По умолчанию

у меня 2003
icq 584 308 611
gaw4 вне форума Ответить с цитированием
Старый 14.10.2013, 13:10   #8
Alexsandrr
Пользователь
 
Регистрация: 02.10.2013
Сообщений: 78
По умолчанию

у меня 2010
Alexsandrr вне форума Ответить с цитированием
Старый 14.10.2013, 17:00   #9
Alexsandrr
Пользователь
 
Регистрация: 02.10.2013
Сообщений: 78
По умолчанию

Вопрос решен не до конца, по прежнему Excel сообщает об отсутствии книги
Alexsandrr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
лишние кавычки при сохранении книги 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