Как узнать Item листа в книге Excel

@AndreA SN · Регистрация: 26.08.2011

Студворк — интернет-сервис помощи студентам

есть большая книга (листов больше 1000)
Не ругайте - так удобнее мне для своих целей
Name листов меняются программно, а item - величина постоянная
Мне нужно оперировать доступом к конкретному листу по Item, для чего его сначала нужно узнать

что-то типа

Visual Basic
1
id_sheet = Activesheet.Item

но эта красота не работает

и правильно ли я дальше действую:

Visual Basic
1
Sheets.Item(id_sheet).Activate

@Апострофф · 09.07.2012, 13:50

Можно с Index`ом попробовать (если я задачу понял правильно)?

Visual Basic
1
2
3
4
dim id_sheet as integer
id_sheet=ActiveSheet.Index
'а далее
Worksheets(id_sheet).Activate

@ikki · 09.07.2012, 13:55

у листа есть неизменяемое (read-only) свойство CodeName.
но обращаться к листу, зная его CodeName - довольно хлопотно.

@AndreA SN · 09.07.2012, 14:58 **[ТС]**

а index не меняется, если лист относительно других листов поменяет свое положение?
у меня листы тасуются в ходе работы пользователем (мной, лентяем), как колода карт блин....

и чем CodeName отличатеся от Item?

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

@kuklp · 09.07.2012, 15:14

Обращаться по item, index - самый ненадежный способ. Используйте свойства name, или как советовал Александр(ikki) - codename. А Ваш вариант как раз:
id_sheet = ActiveSheet.Index - индекс листов меняется из-за удаления-добавления-перемещения.

Саш, ток я не понял, почему хлопотно codename? Чаще даже удобней, чем name:-)

@ikki · 09.07.2012, 15:24

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

Саш, ток я не понял, почему хлопотно?

а как?
(work)sheets() требуют либо номер, либо имя.
по CodeName - через цикл перебора листов (именно это я и называю "хлопотно").
конечно, можно использовать CodeName непосредственно в тексте макроса, но это если оно известно (лист существует) на этапе разработки.

Добавлено через 2 минуты
AndreA SN, у листа нет свойства Item.
это "умолчальное" свойство коллекции листов.
Sheets.Item("Лист1") и Sheets("Лист1") - одно и то же.

@kuklp · 09.07.2012, 15:27

Сравни:
Set rng = Worksheets("Лист1").[a2:a20]
Set rng = Лист1.[a2:a20]
Или просто листов:
Set sh = Worksheets("Лист1")
Set sh = Лист1

@Апострофф · 09.07.2012, 15:32

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

Sheets.("Лист1")

Точка лишняя

А чем классика не устраивает? Назначил переменныю и спи спокойно

Visual Basic
1
2
3
4
dim id_sheet as worksheet
set id_sheet=ActiveSheet '.Index
'а далее
id_sheet.Activate

@ikki · 09.07.2012, 15:34

kuklp, ну я ж писал:

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

конечно, можно использовать CodeName непосредственно в тексте макроса, но это если оно известно (лист существует) на этапе разработки.

Добавлено через 1 минуту

Сообщение от Апострофф

Точка лишняя

где?

спасибо, успел поправить.

Dragokas · 09.07.2012, 20:35

Просветите по поводу получения Codename листа и обращения к нему.

@skol13 · 09.07.2012, 22:16

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

Просветите по поводу получения Codename листа и обращения к нему.

Тоже интересно очень!

@ikki · 09.07.2012, 22:40

попробую...

у листа рабочей книги (объекты worksheet, chart) есть свойства index, name, codename
index - текущий номер листа по порядку (включая скрытые), может меняться пользователем при изменении порядка и количества листов;
name - то, что отбражается на ярлычке, может меняться пользователем (конечно. если книга не защищена);
codename - "внутреннее" имя листа, "обычному" пользователю невидимое и недоступное, поэтому не может меняться пользователем.
кроме того, codename является свойством read-only и через VBA также не может быть изменено. *)
в VBE в окне проекта в списке объектов сначала указаны кодовые имена листов, а затем, в скобках, "обычные" имена.

"обычные" и "необычные" ("кодовые") имена могут совпадать, могут - нет.
но в пределах каждого из множеств имён имя должно быть уникальным (без учета регистра символов)

изменить codename можно через интерфейс VBE - ЛКМ по имени листа в списке объектов - F4 - свойство (Name) - именно которое со скобками.

доступ к отдельному листу возможен:
- по индексу
- по "обычному" имени
и для того, и для другого, используется свойство item коллекций sheets, worksheets, charts объекта workbook:
sheets.item(2)
charts.item("диаграмма 5")
и т.п.

т.к. свойство item является "умолчальным", то допустимы и конструкции
sheets(2)
charts("диаграмма 5")

прямого доступа по "кодовому" имени листа через коллекцию - нет.
но, зная codename листа на этапе разработки проекта (макроса). можно прямо это имя написать в качестве идентификатора листа:
лист1.[a1] - обращение к ячейке A1 листа с кодовым именем "лист1" ("Лист1" и т.п.)

если же нужно получить лист по кодовому имени, но на этапе разработки оно было неизвестно, то примерно так:

Visual Basic
1
2
3
4
5
6
7
function getSheetByCodename(sCodeName as string, optional wb as workbook=nothing) as sheet
  if wb is nothing then set wb=activeworkbook
  for each sh in wb.sheets
    if sh.codename=sCodeName then set getSheetByCodename=sh: exit function
  next
  set getSheetByCodename=nothing
end function

зачем оно всё надо - надеюсь, понятно?

_________________________
*) однако, может: Как узнать Item листа в книге Excel

Dragokas · 10.07.2012, 00:03

Такое великолепное описание, почти мини-статья.

Даже сохраню ссылку для других, чтобы не объяснять.

P.S. всегда раньше считал, что лист1.[a1] обращается к обычному имени листа, а это не так.
А все потому, что по-умолчанию кодовое имя листа = обычному его имени.

@skol13 · 10.07.2012, 01:12

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

свойство (Name) - именно которое со скобками

Всегда подозревал что здесь какая то собака зарыта...

@ikki · 10.07.2012, 03:48

забыл написать: изменение CodeName в отличие от Name разрешается в пределах, обычных для идентификаторов VBA - оно должно начинаться с буквы, содержать буквы, цифры, знак подчеркивания, т.е. следующие имена для свойства CodeName недопустимы:
"123"
123
1лист
лист 1
лист.1
sheet%%

кроме того, оно не должно совпадать с ключевыми словами VBA - такими как for, to, sub

указать же любую из этих строк в качестве "обычного" имени листа (Name) вполне можно.
правда, там свои ограничения - например, обычному имени в русской локали нельзя задать "журнал", а свойству codename - можно.

@kuklp · 10.07.2012, 07:51

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

codename является свойством read-only и через VBA также не может быть изменено

Может, Саш. Создай новую книгу и выполни в ней:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Public Sub www()
    Dim Sh As Object, n&, iCodeName$
    n = 1
    For Each Sh In Sheets
        iCodeName = Sh.CodeName
        Application.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "Ежик" & n
        Sh.Name = Sh.CodeName
        n = n + 1
    Next
End Sub

В параметрах должна стоять галка "Доверять доступ к Visual Basic Projekt".

@ikki · 10.07.2012, 08:35

спасибо за поправку.
хотя странно выглядит - sheets являются объектами книги, а их свойство codename меняется только через vbcomponents()...

а почему разрешено только так? не в курсе?

Добавлено через 11 минут

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

В параметрах должна стоять галка "Доверять доступ к Visual Basic Projekt".

к своему стыду - не нашёл (2003).

а программно её можно снять/установить?

@kuklp · 10.07.2012, 08:50

а программно её можно снять/установить?

А какой бы смысл был в такой безопасности?

@ikki · 10.07.2012, 08:57

умгу...
я не там искал - в свойствах проекта... а надо было в параметрах книги.
спасибо.

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

А какой бы смысл был в такой безопасности?

никакого. но это ничего не доказывает

ээээ....

а вот как-нибудь... программно вызвать это диалоговое окошко и потом через SendKeys послать нужный набор Tab'ов и Enter'ов?.. нельзя?
(я вдруг обнаружил в себе желание стать хакером

)

@kuklp · 10.07.2012, 09:01

Дерзай, авось получится:-)

Новые блоги и статьи Все статьи Все блоги /
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .	Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .

Как узнать Item листа в книге Excel

Решение

Решение

@ikki призрак 3265 / 893 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	09.07.2012, 13:55
	у листа есть неизменяемое (read-only) свойство CodeName. но обращаться к листу, зная его CodeName - довольно хлопотно. 1

@AndreA SN 1021 / 125 / 2 Регистрация: 26.08.2011 Сообщений: 1,213 Записей в блоге: 2
	09.07.2012, 14:58 [ТС]
	а index не меняется, если лист относительно других листов поменяет свое положение? у меня листы тасуются в ходе работы пользователем (мной, лентяем), как колода карт блин.... и чем CodeName отличатеся от Item? вроде именно Item предназначен для таких целей... вот только криво как-то он реализован для листов... или я криво к нему обращаюсь... 0

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	09.07.2012, 15:14
	Обращаться по item, index - самый ненадежный способ. Используйте свойства name, или как советовал Александр(ikki) - codename. А Ваш вариант как раз: id_sheet = ActiveSheet.Index - индекс листов меняется из-за удаления-добавления-перемещения. Саш, ток я не понял, почему хлопотно codename? Чаще даже удобней, чем name:-) 0

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	09.07.2012, 15:27
	Сравни: Set rng = Worksheets("Лист1").[a2:a20] Set rng = Лист1.[a2:a20] Или просто листов: Set sh = Worksheets("Лист1") Set sh = Лист1 0

Dragokas 18026 / 7729 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	09.07.2012, 20:35
	Просветите по поводу получения Codename листа и обращения к нему. 0

Dragokas 18026 / 7729 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	10.07.2012, 00:03
	Такое великолепное описание, почти мини-статья. Даже сохраню ссылку для других, чтобы не объяснять. P.S. всегда раньше считал, что лист1.[a1] обращается к обычному имени листа, а это не так. А все потому, что по-умолчанию кодовое имя листа = обычному его имени. 0

@ikki призрак 3265 / 893 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	10.07.2012, 03:48
	забыл написать: изменение CodeName в отличие от Name разрешается в пределах, обычных для идентификаторов VBA - оно должно начинаться с буквы, содержать буквы, цифры, знак подчеркивания, т.е. следующие имена для свойства CodeName недопустимы: "123" 123 1лист лист 1 лист.1 sheet%% кроме того, оно не должно совпадать с ключевыми словами VBA - такими как for, to, sub указать же любую из этих строк в качестве "обычного" имени листа (Name) вполне можно. правда, там свои ограничения - например, обычному имени в русской локали нельзя задать "журнал", а свойству codename - можно. 2

@kuklp 1703 / 190 / 19 Регистрация: 20.11.2011 Сообщений: 281
	10.07.2012, 09:01
	Дерзай, авось получится:-) 0