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

나를 위해 - 아주 잘 작동합니다.

(원천)

Answer 2

위와 동일하지만 시트로 이동하는 하이퍼링크를 추가로 얻으려면 다음을 수행하십시오.

Sub ListWorkSheetNames()

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

End Sub