Vba: 열려 있는 모든 통합 문서 목록을 얻는 방법

VBA에서 For Each 루프를 사용하여 열려 있는 모든 Excel 통합 문서 목록을 가져올 수 있습니다.

실제로 이를 수행하는 일반적인 방법은 다음과 같습니다.

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

이 특정 매크로는 열려 있는 모든 Excel 통합 문서 목록이 포함된 메시지 상자를 생성합니다.

다음 예에서는 이 매크로를 실제로 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 열려 있는 모든 통합 문서 목록 가져오기

현재 다음 세 개의 Excel 통합 문서가 열려 있다고 가정해 보겠습니다.

• 야구_데이터.xlsx
• football_data.xlsx
• 하키_데이터.xlsx

VBA를 사용하여 열려 있는 모든 통합 문서의 이름을 나열한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

메시지 상자에는 열려 있는 각 통합 문서의 이름이 표시되며 각 고유 통합 문서는 해당 행에 나열됩니다.

For Each 루프에서 vbCrLf 상수를 사용하여 커서를 다음 줄로 이동하는 캐리지 리턴을 삽입했습니다.

이를 통해 열려 있는 각 통합 문서를 메시지 상자의 해당 줄에 나열할 수 있었습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA를 사용하여 파일 이름을 바꾸는 방법
VBA를 사용하여 폴더의 파일을 나열하는 방법
VBA를 사용하여 폴더의 모든 파일을 여는 방법
VBA를 사용하여 파일이 존재하는지 확인하는 방법