如何获取 ms-excel 的工作表名称列表？

Question

我有一个包含很多工作表的 excel 文件。如何获取 ms-excel 的工作表名称列表？

（PS：该office是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