Создание листа с определенным именем.

[bud-dy]

Здравствуйте. Такая проблема.
Нужно создать лист с определенным именем Лист1.
Это мне нужно для того, что бы при переборе листов перебор начинался с Лист2
В книге уже есть несколько листов:
Лист2 "зал"
Лист3 "отчет"
Sheets.Add.Name = "Лист1" создает лист с таким именем, но на самом деле Excel видит его как Лист4 с именем "Лист1" и вся затея пропадает.
Помогите! =)

[_-Re@l-_]

Что ж мешает вручную создавать листы и по надобности переименовывать их?

[bud-dy]

Наверное я не правильно объяснил суть проблемы.
Sheets.Add.Name = "Свод" создает лист с именем "Свод". Если листов 10, то он создает Лист 11 с именем "Свод", а мне нужно что бы создавался Лист1 с именем "Свод".

[_-Re@l-_]

Я сам про такое ничего не знаю,но может есть что-нибудь подобное:

Sheets[1].Name:='Свод';

Но повторюсь: про программную работу с Excel ничего не знаю

[EugeneS]

Сообщение от bud-dy

Наверное я не правильно объяснил суть проблемы.
Sheets.Add.Name = "Свод" создает лист с именем "Свод". Если листов 10, то он создает Лист 11 с именем "Свод", а мне нужно что бы создавался Лист1 с именем "Свод".

Вы говорите об "индексе" листа. Все листы книги номеруются, в том числе скрытые. Новый лист будет иметь индекс 1, если сделать так (первый лист в книге, например, "Лист1"):

Sheets.Add Before:=Sheets("Лист1"): Activesheet.Name="NewSheet"

Проверьте его индекс, он будет первым:

В окне Immediate (Ctrl+G):

?sheets("NewSheet").Index

[alvazor]

Сообщение от EugeneS

Вы говорите об "индексе" листа. Все листы книги номеруются, в том числе скрытые. Новый лист будет иметь индекс 1, если сделать так (первый лист в книге, например, "Лист1"):

Sheets.Add Before:=Sheets("Лист1"): Activesheet.Name="NewSheet"

Проверьте его индекс, он будет первым:

В окне Immediate (Ctrl+G):

?sheets("NewSheet").Index

Совершенно верно! Хотя при этом в vba у второго листа в скобках Вы бы опять-таки увидели (Лист1). Посмотрите пример во вложении - вроде там все наглядно видно. В книге вообще нет (Лист1) и ряда других
Вам-то явно важно, чтобы добавляемый лист имел адрес Sheets(1) и был первым в книге, или не так?

[EugeneS]

так и в чем вопрос?

Сообщение от alvazor

Совершенно верно! Хотя при этом в vba у второго листа в скобках Вы бы опять-таки увидели (Лист1). Посмотрите пример во вложении - вроде там все наглядно видно. В книге вообще нет (Лист1) и ряда других
Вам-то явно важно, чтобы добавляемый лист имел адрес Sheets(1) и был первым в книге, или не так?

В Вашем примере создается лист с именем "СВОД", индекс единица, что не так?

[alvazor]

Да не к Вам вопрос, Евгений, к автору темы, я просто в подтверждение Вашей правоты еще и пример бросил -)

[bud-dy]

Да вроде все так, но в Propeties (F4) когда выбираю лист "СВОД", то Name у него - Лист5, Лист6 и т.д., смотря сколько раз он удалялся и создавался.
А если смотреть по коду, то все верно и все работает.
Вот такая странность или я не догоняю чтото.
Спасибо.!

[EducatedFool]

то Name у него - Лист5, Лист6 и т.д., смотря сколько раз он удалялся и создавался.

Это не Name (имя листа), а Codename (кодовое имя листа)
Хотя название свойства и отображается как Name, на самом деле это Codename.

Можно, конечно, изменить и кодовое имя листа, но это намного сложнее.
Да и доступ к объектной модели надо включать в настройках Excel.

Если вы в коде не работаете именно с кодовыми именами листов - то просто не обращайте внимание на эти имена.