메뉴
이 페이지에서
실무 위키›VBA 코드›OpenFolder

OpenFolder

Sub

지정한 경로의 폴더를 실행하는 VBA 명령문으로, 폴더 창의 보기 형식을 함께 지정할 수 있습니다.

예제파일 다운로드
OpenFolder 코드 미리보기
구문 OpenFolder 경로, [보기형식]
인수구분 형식 설명
경로 필수
실행할 폴더 경로입니다.
보기형식 선택 VbAppWinStyle
윈도우 보기 형식입니다. 기본값은 일반크기(포커싱)입니다.
vbHide·vbNormalFocus·vbMinimizedFocus·vbMaximizedFocus·vbNormalNoFocus·vbMinimizedNoFocus 총 6가지를 지원합니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요
Module1 · OpenFolder
Sub OpenFolder(Path, Optional Focus As VbAppWinStyle = vbNormalFocus)
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.
'■ OpenFolder함수
'■ 경로의 폴더를 실행합니다.
'■ 사용방법
'OpenFolder "C:\"
'■ 인수 설명
'_____________Path : 실행할 폴더 경로입니다.
'_____________Focus : 윈도우 크기입니다.기본값은 일반 크기입니다.
'###############################################################
Shell "C:\windows\explorer.exe """ & Path & "", Focus
End Sub

활용 예제

C:\Windows 폴더 실행하기
OpenFolder "C:\Windows"
현재 실행중인 통합문서의 폴더경로 실행하기
OpenFolder ThisWorkbook.Path
'저장되지 않은 통합문서일 경우, 윈도우 기본 폴더경로가 실행됩니다.

안내사항

입력한 경로가 존재하지 않을 경우 윈도우의 기본 경로(내문서 또는 바탕화면)가 실행됩니다.
포커싱 없이 폴더를 실행해야 할 경우 보기형식을 vbNormalNoFocus 로 지정합니다.
댓글 4
5 (3개 평가)
김기영
김기영 2021.10.18 16:56
출처 확실히 기입하고 잘쓰겠습니다
너모하냐
너모하냐 2023.02.23 08:03
셀에 입력되어있는 문자를 클릭시 지정된 폴더에서 문자와 동일한 문서를 찾아서 오픈하는 기능이 가능할까요? 업무시 개별개체삽입 하기에는 양이 많아 문의드립니다.
오빠두엑셀
오빠두엑셀 작성자 2023.02.23 13:52
홈페이지에서 제공하는 ListFiles 함수를 사용해 부분일치하는 파일을 찾아 실행하도록 명령문을 작성해보세요.
https://www.oppadu.com/%ec%97%91%ec%85%80-listfiles-%ed%95%a8%ec%88%98/
강민준🤗
강민준🤗 2024.08.11 12:43
좋은 자료 감사합니다.🙇‍♂️
스크랩 완료