миста-лучше-гугла, ответь, как получить список названий листов в книге excel на отдельном листе или в другой книге? есть способ без vba?
поясняю, есть книга с >50 листами. Надо сделать кое-какой анализ по ним, но для начала хотя бы список получить
Alt+F11
В открывшемся окне редактора создай новый пустой модуль (меню Insert - Module) и скопируй туда текст этого макроса:
Sub СписокЛистов()
Dim sheet As Worksheet
Dim cell As Range
With ActiveWorkbook
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
cell.Formula = sheet.Name
Next
End With
End Sub
Закрой редактор и вернитесь в Excel
Добавь в книгу чистый лист и поместите его на первое место
и запусти макрос СписокЛистов()
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший