우리는 열려있는 모든 통합 문서 및 워크 시트 및 표시 모든 이름을 통해 루프 엑셀 VBA에서 프로그램을보고 아래.

상황 :

Loop through Books and Sheets Example

명령 단추에 다음 코드 줄을 추가합니다

  1. 먼저, 우리는 두 개의 오브젝트와 하나 개의 변수를 선언합니다. 유형 통합 문서 하나의 목적은 우리가 책, 하나 우리가 시트를 호출 워크 시트 타입의 객체 및 유형 문자열의 변수는 우리가 텍스트를 호출 호출합니다.

Dim book As Workbook, sheet As Worksheet, text As String

  1. 우리는 열려있는 모든 통합 문서를 통해 루프합니다. 이를 위해, 다음 코드 줄을 추가 :

For Each book In Workbooks

통합 문서의 이름 및 텍스트 : 3. 우리는 텍스트 “통합 문서”쓰기 “워크 시트” “변수 텍스트에

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

참고 :. 당신은 연결하는 & 연산자를 사용할 수 있습니다 . 요소 (가입) 새로운 라인, 당신은 vbNewLine를 사용할 수 있습니다

  1. 루프에 통합 문서의 모든 워크 시트를 통해, 다음 코드 줄을 추가 시작하려면 :.

For Each sheet In book.Worksheets

5 . 우리는 변수 텍스트에 통합 문서의 워크 시트의 이름을 작성합니다.

닫기

text = text & sheet.Name & vbNewLine

  1. 두 번째 루프.

Next sheet

  1. 흰색 줄을 추가합니다.

text = text & vbNewLine

  1. 첫 번째 루프를 종료하는 것을 잊지 마십시오.

Next book

  1. 마지막으로, 우리가있는 MsgBox를 사용하여 변수 텍스트를 표시합니다.

    1. 명령 단추를 클릭하기 전에

MsgBox text

10 테스트 프로그램은, 약간의 설명 이름 워크 시트를 제공하고 세 워크 시트에 빈 통합 문서를 열

결과 :.

Loop through Books and Sheets in Excel VBA