Vba를 사용하여 통합 문서 이름을 얻는 방법(예제 포함)

VBA에서 다음 방법을 사용하여 Excel 통합 문서의 이름을 가져올 수 있습니다.

방법 1: 활성 통합 문서 이름 가져오기

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

이 함수는 my_vba_workbook.xlsm 과 같은 활성 통합 문서의 이름을 반환합니다.

방법 2: 확장명 없이 활성 통합 문서 이름 가져오기

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

이 함수는 my_vba_workbook 과 같은 확장명 없이 활성 통합 문서의 이름을 반환합니다.

다음 예에서는 my_vba_workbook.xlsm 이라는 현재 활성 Excel 통합 문서에서 실제로 각 방법을 사용하는 방법을 보여줍니다.

예 1: 활성 통합 문서의 이름 가져오기

활성 통합 문서의 이름을 가져오기 위해 다음 함수를 만들 수 있습니다.

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

그런 다음 A1 셀에 다음 수식을 입력하여 활성 통합 문서의 이름을 얻을 수 있습니다.

 =GetWorkbookName()

다음 스크린샷은 실제로 이 수식을 사용하는 방법을 보여줍니다.

수식이 현재 사용 중인 활성 통합 문서의 이름인 my_vba_workbook.xlsm을 반환하는 것을 볼 수 있습니다.

참고 : .xlsm 확장자는 매크로 지원 Excel 통합 문서를 나타냅니다.

예 2: 확장명 없이 활성 통합 문서 이름 가져오기

확장명 없이 활성 통합 문서의 이름을 가져오기 위해 다음 함수를 만들 수 있습니다.

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

그런 다음 A1 셀에 다음 수식을 입력하여 활성 통합 문서의 이름을 얻을 수 있습니다.

 =GetWorkbookName()

다음 스크린샷은 실제로 이 수식을 사용하는 방법을 보여줍니다.

수식은 .xlsm 확장명이 없는 현재 활성 통합 문서의 이름인 my_vba_workbook 을 반환하는 것을 볼 수 있습니다.

참고 : Left 및 Instr 함수를 사용하면 통합 문서 이름에서 점 왼쪽에 있는 모든 문자를 추출할 수 있습니다.

추가 리소스

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

VBA를 사용하여 폴더를 만드는 방법
VBA를 사용하여 폴더를 삭제하는 방법
VBA를 사용하여 파일 이름을 바꾸는 방법
VBA를 사용하여 파일이 존재하는지 확인하는 방법