[VBA] Workbooks

특정 엑셀 파일을 찾아내기 위한 코딩입니다.

간단하게 설명하자면

1. 현재 열려있는 워크북을 타운트하여 반복구문을 실행합니다.

2. 파일이름에 문구를 포함하는 부분이 있으면 이름을 저장하고 카운드합니다.

3. 2개이상의 파일이 있는 경우 매크로를 종료합니다.

'명시적 선언: 모든 변수를 사용하기전에 선언하도록 합니다.

Option Explicit

Sub 매크로2()

    Dim MFN_ As String

    'MFN_: Macro file name

    

    Dim I_, CT_ As Integer

    'CT_: 중복 검증용 변수

    'I_: 반복구문용

    

    For I_ = 1 To Workbooks.Count

        If InStr(Workbooks(I_).Name, "문구") > 0 Then

            MFN_ = Workbooks(I_).Name

            CT_ = CT_ + 1

        End If

        If CT_ > 1 Then MsgBox "문구 관련 파일이 2개이상 열려있습니다.": Exit Sub

    Next I_

    MsgBox MFN_

    '확인용

End Sub

워크북은 물론 시트도 동일한 방법으로 코딩하여 컨트롤 가능합니다.

Workbooks 대신 Worksheets를 사용하세요.