Как получить список названий листов ms-excel?

Question

У меня есть файл excel, в котором много листов. Как мне получить список имен листов ms-excel?

(P.S.: Офис — это версия для Mac.)

Answer 1

Попробуйте использовать следующий макрос:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = Sheets(i).Name
Next i

End Sub

Лично у меня - работает вполне хорошо.

(источник)

Answer 2

Чтобы получить то же самое, что и выше, но дополнительно с гиперссылками, ведущими на лист:

Sub ListWorkSheetNames()

For i = 1 To Sheets.Count
Range("A" & i) = "=HYPERLINK('" + Sheets(i).Name + "'!A1, """ + Sheets(i).Name + " "")"
Next i

End Sub