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

18.07.2012, 13:19

Только сегодня с этим сам ковырялся - у меня работает
В ячейке o35 я программно вставляю название нужного листа, захожу в книгу со всеми листами и выбираю необходимый (d_t в макросе определению не подлежит)

Visual Basic
1
2
3
    d_t = Range("o35")
    Windows("Test.xls").Activate
    Sheets(d_t).Select

Dragokas · 19.07.2012, 02:19

Похоже только циклом:

Visual Basic
1
2
3
4
5
6
Function WhatItem%(SheetName$)
For WhatItem = 1 To Sheets.Count
    If Sheets(WhatItem).Name = SheetName Then Exit Function
Next
WhatItem = 0
End Function

А... н-нет, таки можно:

Visual Basic
1
id_sheet = Activesheet.Index

@kavasaka · 25.12.2015, 14:54

Как программно удалить лист?
Пробовал:

PureBasic
1
2
 Sheets("лист4").Select
    ActiveWindow.SelectedSheets.Delete

но вылазит сообщение с кнопками Удалить и Отмена. Как бы программно нажать Удалить или вообще чтобы не вылазило сообщение?

@pashulka · 25.12.2015, 15:00

kavasaka,

Visual Basic
1
2
3
Application.DisplayAlerts = False
Worksheets("Лист4").Delete
Application.DisplayAlerts = True

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .