たくさんのシートがある 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