Как получить список имен листов MS-Excel?

Question

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

(PS: офис 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