如何取得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