Страницы: 1
RSS
Простой алгоритм создания новых листов в Excel
 
Помогите, пожалуйста, написать простенький алгоритм: если рабочая книга имеет лист "Имя листа", то переходи к следующей инструкции. Если не имеет, то создай лист "Имя листа" и переходи к следующей инструкции. Самому не хватает знаний команд и синтаксиса пока. Заранее очень благодарен за помощь!
 
Как узнать существует ли лист в книге?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Спасибо! Нашел на этом ресурсе хорошее и компактное решение, которое делает то, что мне нужно:
Код
Dim wsDown, wsDisp As Worksheet
On Error Resume Next
Set wsDown = Sheets("Выгрузка")
Set wsDisp = Sheets("Дисплей")
If wsDown Is Nothing Then Sheets.Add(, Sheets(Sheets.Count)).Name = "Выгрузка"
If wsDisp Is Nothing Then Sheets.Add(, Sheets(Sheets.Count)).Name = "Дисплей"
Изменено: Ltybc - 28.07.2016 13:06:15
 
Единственный момент, если есть возможность, могли бы вы рассказать принцип работы этой конструкции On Error Resume Next. Что значит Resume Next?
 
Цитата
Ltybc написал:
Что значит Resume Next?
Здесь или здесь не пробовали?
 
можно просто:
Код
On Error Resume Next
If Sheets("лист").Index = 0 Then Sheets.Add().Name = "лист"
Живи и дай жить..
Страницы: 1
Наверх