[EXCEL] 파일이름 셀에 표시하기.

[방법1] 기본 함수로 표시하기

=MID(CELL("filename", A1), FIND("[", CELL("filename", A1)) + 1, FIND("]", CELL("filename", A1)) - FIND("[", CELL("filename", A1)) - 1)

=MID(CELL("filename", A1), FIND("[", CELL("filename", A1)) + 1, FIND("]", CELL("filename", A1)) - FIND("[", CELL("filename", A1)) - 1)

 

[방법2] VBA(Visual Basic for Applications)를 활용하기

 

1. "Alt + F11" 키를 눌러 VBA(Visual Basic for Applications) 편집기 열기

2. 메뉴에서 "삽입 - 모듈" 선택

3. 아래 코드 붙여 넣기

Function GetSheetName() As String
    GetSheetName = Application.Caller.Worksheet.Name
End Function

 

4. " Ctrl + S"로 저장 후, 엑셀로 돌아가서

5. 새로 만들어진, GetSheetName 함수를 사용

 

=GetSheetName()

 

 

그렇다면, 파일 이름에서 확장자를 숨기고 파일 이름만 사용 하려고 하면,

=LEFT(MID(CELL("filename", A1), FIND("[", CELL("filename", A1)) + 1, FIND("]", CELL("filename", A1)) - FIND("[", CELL("filename", A1)) - 1), FIND(".", MID(CELL("filename", A1), FIND("[", CELL("filename", A1)) + 1, FIND("]", CELL("filename", A1)) - FIND("[", CELL("filename", A1)) - 1)) - 1)

1. CELL("filename", A1) → 전체 경로 + [파일명]시트명을 가져옵니다.
2. MID(...) → 그중 [파일명]만 추출합니다.
3. LEFT(..., FIND(".", ...)) → 그 중에서 확장자 앞까지 잘라냅니다.