Как узнать 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

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

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

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

Решение

Решение

@ikki призрак 3266 / 894 / 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,218 Записей в блоге: 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 18030 / 7733 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	09.07.2012, 20:35
	Просветите по поводу получения Codename листа и обращения к нему. 0

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

@ikki призрак 3266 / 894 / 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