Работа с xla файлом 2.

[tae1980]

В рабочей книге часть листов имеет кодое имя, через котрое к нему можно обращаться из VBA напрямую. При переносу кода в книгу xla столкнулся с тем не получается обраться к таким листам в активной книге подобным образом, удалось обратиться к листам только по имени. Например: в активной книге есть такой лист: Исх_ДанныеДоговора(Исх.данные договора)
В xla книге удалось к нему обраться через такую конструкцию:
Set Исх_ДанныеДоговора=ActiveWorkbook.W orksheets("Исх.данные договора")
Что не удобно, так как код перестанет работать если переименовать файл в Excel'е. Можно изменить строку так что бы обращаться к листу по кодовому имени?

[The_Prist]

Здравствуйте.
Я вот так и не понял(честно, три раза прочитал пост) - Вы к листу какой книги не можете так обратиться, и главное - к листу какой книги ХОТИТЕ обратиться? Мелькает xla один раз, но Вы почему-то про активную больше говорите....

Если у Вас действительно xla(именно надстройка, а не тупо расширение xla), то и обращаться уже надо в коде по имени книги или ThisWorkbook(если код в самой надстройке).

[tae1980]

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

Здравствуйте.
Я вот так и не понял(честно, три раза прочитал пост) - Вы к листу какой книги не можете так обратиться, и главное - к листу какой книги ХОТИТЕ обратиться? Мелькает xla один раз, но Вы почему-то про активную больше говорите....
Если у Вас действительно xla(именно надстройка, а не тупо расширение xla), то и обращаться уже надо в коде по имени книги или ThisWorkbook(если код в самой надстройке).

Уже больше года колдую над созданием и отладкой небольшой проги для создания в excel'е нужных таблиц. Пока весь код и все данные находяться в одном файле, что не удобно, так как для каждого "объекта" создается свой файл. Со всеми вытекающими от сюда последствиями... Приступил к переносу части общих данных и всего кода в надстройку (xla). На даном этапе для удобства редактирования убрал "невидимость" у xla книге. Потом верну.
Вот и возникла необходимость в активной книге запускать код из надстройки, но работать с данными и листами активной книге. Не могу обратиться из кода в надстройке к листам активной книге.

Или я чего-то не монимаю?.. И при вызове из активной книги кода в надстройке нет необходимости специально прописывать обращение к активной книге?

[The_Prist]

Обращение по кодовому имени к листу возможно лишь к листам той книги, в которой расположен сам код. Так что Вам придется обращаться по имени или индексу. Как вариант, если Вы вызывать код планируете из активной книги через процедуру, то можно передавать имя листа в процедуру надстройки:

'Код в активной книге
Sub Transfer_Sh_Name()
Run "Addin.xla!Addin_Procedure", Исх_ДанныеДоговора.Name
End Sub
'Код в надстройке
Sub Addin_Procedure(ByVal sShName as string)
Set Исх_ДанныеДоговора=ActiveWorkbook.W orksheets(sShName)
End Sub

[tae1980]

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

Обращение по кодовому имени к листу возможно лишь к листам той книги, в которой расположен сам код. Так что Вам придется обращаться по имени или индексу.

Как я понимаю, что пропытке засунуть код в dll (что планируется на следующем шаге) будет та же проблема... Остается запретить перименование ключевых страниц.

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

Как вариант, если Вы вызывать код планируете из активной книги через процедуру, то можно передавать имя листа в процедуру надстройки:

'Код в активной книге
Sub Transfer_Sh_Name()
Run "Addin.xla!Addin_Procedure", Исх_ДанныеДоговора.Name
End Sub
'Код в надстройке
Sub Addin_Procedure(ByVal sShName as string)
Set Исх_ДанныеДоговора=ActiveWorkbook.W orksheets(sShName)
End Sub

Имена страниц известны заранее. Всего 8 страниц к которым нужно обращаться по кодовым именам. Как вариант передавать сразу 8 имен...

Спасибо!