Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
[ Закрыто ] Вопрос по VBA, Как игнорировать действие, если документа нет в указанной папке
 
Всем привет. Помогите мне с такой задачкой:
Я в один документ заливаю данные с девяти разных документов при помощи ВПР. Но бывают моменты, когда некоторых документов нет (или они еще не готовы). Тогда мне нужно, чтобы макрос игнорировал эти документы, а не запрашивал у меня: "Обновить значения...". Как быть?
Вот пример:
Sub Задание()
'
' Задание Макрос
'
' Сочетание клавиш: Ctrl+Shift+V
'
   
   Range("W2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Бишкек-1.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("X2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Бишкек-2.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("Y2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Бишкек-3.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("Z2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Юг-1.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AA2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Юг-2.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AB2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Юг-3.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AC2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Север-1.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AD2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Север-2.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AE2").Select
   ActiveCell.FormulaR1C1 = _
       "=IFERROR(VLOOKUP([@Артикул],[Северо-Запад.xls]Лист1!R5C1:R50000C7,7,0),0)"
   Range("AG2").Select
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Бишкек-1.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Бишкек-2.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Бишкек-3.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Юг-1.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Юг-2.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Юг-3.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Север-1.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Север-2.xls", Type:=xlExcelLinks
   ActiveWorkbook.BreakLink Name:= _
       "\\ZAVSKLAD\NewPublic\НОВОЕ ПОПОЛНЕНИЕ\Рейсы сегодня\Северо-Запад.xls", Type:=xlExcelLinks
   Range("AG2").Select
   MsgBox "Сегодняшние рейсы загружены!!!", vbInformation
End Sub
 
Тема закрыта: название темы ни о чём. Придумайте нормальное название, раскрывающее проблему и создайте новую тему. Эта будет удалена. Не помешает файл-пример. И код оформляйте соответствующим тегом: ищите такую кнопку.
Тег VBA.jpg (19.2 КБ)
Страницы: 1
Читают тему (гостей: 1)