ms-excel のシート名のリストを取得するにはどうすればいいですか?

ms-excel のシート名のリストを取得するにはどうすればいいですか?

たくさんのシートがある Excel ファイルがあります。 ms-excel のシート名のリストを取得するにはどうすればよいでしょうか?

(追記:OfficeはMac版です。)

答え1

次のマクロを使用してみてください。

Sub ListWorkSheetNames()

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

End Sub

私にとっては、かなりうまく機能します。

ソース

答え2

上記と同じ内容に加えて、シートに移動するハイパーリンクを追加するには、次の手順を実行します。

Sub ListWorkSheetNames()

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

End Sub

関連情報