web-dev-qa-db-ja.com

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

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

(追記:オフィスはMac版です。)

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