엑셀 vba/시트이름 가져오기/시트이름 변수에 넣어 활용하기

엑셀 시트의 이름을 가져오고, 변수에 넣어 활용해보자. 

 

0. 예제파일 작성. 

  1) 시트 3개를 만든다.

1. 코드작성

  1) 위 시트 3번과 1,1 의 데이터인 3 부터 차례대로 출력될것이다. 

Sub 시트이름가져오기()
    Dim ws_count As Integer
    Dim ws_name As String
    
    ws_count = Worksheets.Count
    
    For n = 1 To ws_count
        ws_name = Sheets(n).Name
        MsgBox (ws_name)
        MsgBox (Sheets(ws_name).Cells(1, 1).Value)
        
    Next
 
End Sub

 

2. 결과

  1) 아래 순서대로 나올것이며, 시트 위치가 뒤섞이면 순서도 같이 섞인다.