Worksheets.Add()

[Skif-F]

Создаю книгу Excel. Вставляю в неё модуль Module1 (пустой, без кода). Сохраняю книгу и закрываю Excel.

Запускаю созданную книгу и запрещаю макросы.
Запускаю на выполнение макрос из надстроек:

Sub Макрос1()
        Debug.Print 3
        Worksheets.Add().Name = "Новое Имя"
        Debug.Print 4
End Sub

Создаётся лист с именем "Лист2" и макрос прекращает работу. Команда Debug.Print 4 не отрабатывает.
При последующих запусках, при пошаговой обработке - всё работает нормально, а вот при первом запуске - нет.

в чём может быть причина?

[SAS888]

При добавлении нового листа в книгу с одновременным присвоением имени (как в Вашем коде), возникает следующая ситуация:
Если листа с таким именем не существует, то он создается. Если же он имеется, то (естественно, при установленном запрете вывода сообщений Excel, либо игнорировании ошибок Excel) будет создан новый лист с именем "Лист...", т.е. стандартное имя следующего листа при добавлении.
Проверьте, нет ли в надстройке листа с таким именем, и какая книга активна при выполнении Вашего кода.

[Skif-F]

Дело в том, что даже если я сделаю так:

Sub Макрос1()
        Dim WS As Worksheet
        Debug.Print 3
        On Error Resume Next
        Set WS = Worksheets.Add()
        WS.Name = "Новое Имя"
        Debug.Print 4
End Sub

Выполнение прекратится на Set WS = Worksheets.Add(), команда WS.Name = "Новое Имя" не отработает.

Опробовал эту ситуацию на 2-х машинах с разными сборками Office 2007 - эффект один и тот же.

Хочу добавить, что вызов макроса ведётся через меню, установленное надстройкой.

[alex77755]

Есть у меня подобный пример. Попробуй:

Как задать имя листу, который будет вставлен?
Q:Хочy через Excel VBA задать имя листу, который будет вставлен. Но у команды Sheets.Add нет такого параметра ! Как бороться?

A: Очень просто...
'

' Sub CreateSheet
' Вставляет активную рабочую книгу в рабочий лист с именем sSName.
' Note: Если параметр bVisible имеет значение False, этот лист становится  скрытым.
'
Рublic Sub CreateSheet(sSName As String, bVisible As Boolean)
Dim wsNewSheet As WorkSheet 

On Error GoTo errНandle 

Set wsNewSheet = ActiveWorkBook.Worksheets.Add 
  With wsNewSheet
   .Name = sSName
   .Visible = bVisible
  End With
Exit Sub
errНandle:
  MsgBox Err.Descriрtion, vbExclamation, "Error #" & Err.Number
End Sub

[Skif-F]

У меня проблема не в том, чтобы задать имя листа, а в том, что макрос прекращает работать, натыкаясь на Worksheets.Add(), не выдавая при этом каких-либо сообщений!!!

[SAS888]

макрос прекращает работать, натыкаясь на Worksheets.Add(), не выдавая при этом каких-либо сообщений!!!

Если лист с таким именем уже существует, то будет добавлен новый лист с присвоением ему очередного стандартного имени ("ЛистХ" или SheetX"). При этом ошибки Excel не будет. И еще: макрос прекращает работу? Или работает дальше? Попробуйте вставить какую либо команду после добавления листа и присвоения ему имени. Она будет выполняться?

Хочу добавить, что вызов макроса ведётся через меню, установленное надстройкой.

А если этот код выполнить из отдельного модуля, который находится в рабочей книге (попробуйте), то какой результат получается в этом случае?

[Skif-F]

Люди, читайте внимательнее:
[QUOTE=Skif-F;619555]
Запускаю на выполнение макрос из надстроек:

Sub Макрос1()
        Debug.Print 3
        Worksheets.Add().Name = "Новое Имя"
        Debug.Print 4
End Sub

Создаётся лист с именем "Лист2" и макрос прекращает работу. Команда Debug.Print 4 не отрабатывает.
При последующих запусках, при пошаговой обработке - всё работает нормально, а вот при первом запуске - нет.
QUOTE]

[SAS888]

Что-то мне подсказывает, что проблема не в этом коде...
1. Надстройка у Вас всегда установлена? Или устанавливается/удаляется каждый раз при открытии/закрытии?
2. Когда и как создается меню надстройкой?
3. Давайте в студию Вашу надстройку. Можно (лучше) не всю, а только с проблемным кодом. Разберемся.

[Skif-F]

Выполняю ваше требование Книга и надстройка.zip.
Во вложении хранятся 2 файла: Надстройка.xlam (для Excel 2007) и Книга1.xls (для Excel 2003) - мой Excel отказался создавать надстройку для 2003.

Порядок действий такой:
- устанавливаем надстройку
- устанавливаем: "Отключить все макросы с уведомлением"
- выходим из Excel'я
- запускаем Книга1.xls и запрещаем макросы
- щёлкаем правой кнопкой листе и выбираем "Новое меню/Что-то сделать"
после этого должен создаться лист с именем "Новое Имя"

У меня создаётся Лист4 и макрос работать прекращает. При последующих пусках всё работает как надо
Debug.Print в код я вставил.
Макрос, обслуживающий действие "Что-то сделать", находится в модуле BaseModule.

[SAS888]

С запретом макросов я смог решить Вашу задачу только таким образом (см. вложение).