통합 문서가 열려 있는지 확인하는 Excel 매크로

매크로가 가장 먼저 하는 일은 사용자가 선택한 파일 이름을 저장할 문자열 변수를 선언하는 것입니다. TestBook은 문자열 변수의 이름입니다.

2단계에서 Excel에 이 코드를 실행하는 동안 오류가 있을 수 있음을 알리고 오류가 발생하면 코드를 다시 시작합니다. 이 줄이 없으면 오류가 발생하면 코드가 중지됩니다. 다시 한 번 주어진 파일 이름을 테스트하여 Object 변수에 할당할 수 있는지 확인합니다. 주어진 통합 문서를 할당할 수 있는 경우 열려 있습니다. 오류가 발생하면 닫힙니다.

3단계에서 주어진 통합 문서를 TestBook Object 변수에 할당하려고 시도합니다. 할당하려는 통합 문서는 TargetWorkbook이라는 문자열 변수입니다. TargetWorkbook은 함수 선언의 함수에 전달됩니다(코드의 첫 번째 줄 참조). 이 구조를 사용하면 통합 문서 이름을 하드 코딩할 필요가 없으므로 대신 변수로 전달할 수 있습니다.

4단계에서는 오류가 발생했는지 확인하기만 하면 됩니다. 오류가 발생하지 않은 경우 통합 문서가 열려 있으므로 FileIsOpenTest를 True로 설정합니다. 오류가 발생한 경우 통합 문서가 열려 있지 않고 FileIsOpenTest를 False로 설정합니다.

다시 말하지만, 이 함수는 TargetWorkbook 인수를 통해 전달한 모든 파일을 평가하는 데 사용할 수 있습니다. 이것이 매크로를 함수에 넣는 것의 아름다움입니다.

다음 매크로는 이 기능을 구현하는 방법을 보여줍니다. 여기에서 새로운 FileIsOpenTest 함수를 호출하여 사용자가 이미 열려 있는 파일을 열 수 없도록 합니다.

하위 매크로1()

'1단계: 문자열 변수 정의

    Dim FName As Variant

    Dim FNFileOnly As String

'2단계: GetOpenFilename 메서드가 대화 상자를 활성화합니다.

    FName = 응용 프로그램.GetOpenFilename( _

            FileFilter:="Excel 통합 문서,*.xl*", _

            Title:="열릴 통합 문서 선택", _

            다중 선택:=거짓)

'3단계: 아직 열지 않은 경우 선택한 파일을 엽니다.

    FName <> False이면

    FNFileOnly = StrReverse(Left(StrReverse(FName), _

                 InStr(StrReverse(FName), ") - 1))