Использование кодовых имен страниц книги в надстройках

[tae1980]

Разрабатываю ряд макросов пока они размещаются в рабочей книге. Активно использую обращение к страницами по кодовым именам. Для оптимизации хочу перенести большую часть макросов в надстройку. Краем уха слышал, что в этом нельзя обращаться к листам по кодовым именам. Так ли это?

[EducatedFool]

Когда Вы пишите что-то вроде этого: Лист1.[a1] = 123
Excel пытается найти объект Лист1 в той книге, из которой запускается макрос.

В случае с надстройкой такой код будет искать лист с кодовым именем в самой надстройке, и, если не найдёт, возвратит ошибку.
Проще обращаться к листам по именам.

Я бы добавил в надстройку такой код:

Public sh1 As Worksheet, sh2 As Worksheet

Private Sub Workbook_Open() 'Макрос Запускается При Запуске Надстройки
    Set sh1 = Workbooks("Книга1").Worksheets("Лист1")
    Set sh2 = Workbooks("Книга1").Worksheets("Лист2")
End Sub

А потом во всем коде надстройки обращался бы к объектам sh1 и sh2

Можно в надстройке переопределить кодовые имена Лист1 и Лист2 (или какие у Вас там кодовые имена листов):

Public Лист1 As Worksheet, Лист2 As Worksheet

Private Sub Workbook_Open() 'Макрос Запускается При Запуске Надстройки
    Set Лист1 = Workbooks("Книга1").Worksheets("Лист1")
    Set Лист2 = Workbooks("Книга1").Worksheets("Лист2")
End Sub

В этом случае и код переделывать не придётся...

[tae1980]

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

Можно в надстройке переопределить кодовые имена Лист1 и Лист2 (или какие у Вас там кодовые имена листов):

Public Лист1 As Worksheet, Лист2 As Worksheet

Private Sub Workbook_Open() 'Макрос Запускается При Запуске Надстройки
    Set Лист1 = Workbooks("Книга1").Worksheets("Лист1")
    Set Лист2 = Workbooks("Книга1").Worksheets("Лист2")
End Sub

В этом случае и код переделывать не придётся...

Спасибо! Думаю это будет оптимально.
Жалко конечно что теряются кодовые имена. :( Я хотел с их помощью дать возможность пользователю переименовывать листы.

[EducatedFool]

Жалко конечно что теряются кодовые имена

А куда они теряются?
Пользователь же не будет изменять кодовые имена листов...

Используйте такую функцию:

Function GetSheetByCodename(ByVal wbname As String, ByVal Cname As String) As Worksheet
    Dim sh As Worksheet
    For Each sh In Workbooks(wbname).Worksheets
        If sh.CodeName = Cname Then Set GetSheetByCodename = sh: Exit Function
    Next
    MsgBox "Лист с кодовым именем " & Cname & "  не найден", vbCritical
End Function

Возможно, это делается проще, но я другого способа не придумал...

Весь код будет выглядеть так:

Public Лист1 As Worksheet, Лист2 As Worksheet

Private Sub Workbook_Open()    'Макрос Запускается При Запуске Надстройки
    Set Лист1 = GetSheetByCodename("post_53728.xls", "КодовоеИмяЛиста1")
    Лист1.[a1] = 456
End Sub