перечень листов книги Excel
Модератор: Naeel Maqsudov
Как максимально быстро получить список всех листов книги?
С уважением, автор и ведущий рассылки Бесплатная рассылка: Excel - Готовые формулы
For Each s in ActiveWorkbook.Sheets
Debug.Print s.Name
Next s
Debug.Print s.Name
Next s
Всякое решение плодит новые проблемы.
А если просто нажать правой кнопки мыши на левый нижний угол файла, туда, где "нарисованы" стрелки прокруток? Не пробовали?
Одно дело посмотреть на перечень листов, но совсем другое дело получить его в виде спискаpygma писал(а):А если просто нажать правой кнопки мыши на левый нижний угол файла, туда, где "нарисованы" стрелки прокруток? Не пробовали?
С уважением, автор и ведущий рассылки Бесплатная рассылка: Excel - Готовые формулы
ПОпробуйте этот макрос, работает отлично:Author_R писал(а):Одно дело посмотреть на перечень листов, но совсем другое дело получить его в виде списка
Sub SheetList()
Dim sheet As Worksheet
Dim cell As Range
With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
cell.Formula = sheet.Name
Next
End With
End Sub
Перед тем как его запустить создайте новый лист и сделайте его активным