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

对我来说 - 效果很好。

（来源）