web-dev-qa-db-ja.com

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

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

（追記：オフィスはMac版です。）

macosmicrosoft-excelmicrosoft-excel-2011
3
xdazz

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

Sub ListWorkSheetNames()

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

End Sub

私にとっては-非常にうまく機能します。

（ ソース ）

5
kurp

上記と同じですが、シートに移動するハイパーリンクが追加されています。

Sub ListWorkSheetNames()

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

End Sub
1
fiona