엑셀 vba 자동실행이 안되는 질문

VBA
작성자
아스날
작성일
2021-07-17 14:32
조회
139
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요 처음 질문글 남겨봅니다.

 

엑셀 자주사용하는데 제목표시줄에 파일경로가 표시되는 vba를 구현해서 항상 보이게 하고싶은데

myaddin이라는 xlam파일 안 클래스모듈에 저 소스가 구현돼있더라구요.

 

Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
Dim strPath As String
On Error GoTo Err_Step
strPath = Wb.Path
If Len(strPath) > 50 Then
strPath = Mid(strPath, InStr(Len(strPath) - 50, strPath, "\"))
End If
Application.Caption = "" & _
IIf(strPath = vbNullString, "", "" & strPath)
Err_Step:
End Sub

 

근데 이 코드만 뽑아서 제가 만든 xlam 파일 쪽 클래스모듈에 넣고

xlam파일을 엑셀 추가기능에 넣어서 엑셀 실행할때마다 자동적으로 실행하게 해도

원본파일을 적용했을 땐 엑셀 타이틀바에 경로표시가 제대로 되는데

제가 만든 xlam 파일을 넣었을 때는 아무런 반응이 없네요.

오빠도 엑셀님 꼭 조언 좀 부탁드립니다.

(myaddin2018 프로젝트 패스워드는 1111 입니다)

 

전체 3

  • 2021-07-19 02:50

    안녕하세요.

    명령문을 아래처럼 바꿔보시길 바랍니다.

    Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
    Dim strPath As String
        strPath = Wb.Path
        ActiveWorkbook.Windows(1).Caption = ActiveWorkbook.Name & _
          IIf(strPath = vbNullString, "", " - " & strPath)
    End Sub

     


    • 2021-07-19 07:41

      오빠두님 답변 감사드립니다!

      근데 엑셀을 실행하자말자 제목표시줄에 경로가 뜨는 게 아니고 엑셀창이 두개 이상 띄우고 다른 엑셀창을 한번 클릭하고 다시 원래 엑셀창을 클릭해야 제목표시줄에 경로가 표시됩니다. 이걸 어떻게 해결할 수 있을까요?

      처음 제가 올렸던 파일 myaddin2018 파일은 추가기능으로 삽입해놓고 일반적인 엑셀 저장해뒀던 파일을 열었을 때 경로가 한번에 제목표시줄에 보이는 반면, 알려주신 코드 삽입하니 엑셀 창을 두개이상 켜놓고 일부러 다른 엑셀창을 클릭했다가 다시 엑셀창을 클릭해야만 제목표시줄에 경로가 업데이트 됩니다.


      • 2021-07-26 15:48

        안녕하세요.

        그러시다면 아래 명령문으로 바꿔보시겠어요?

        Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
        Dim strPath As String
            strPath = Wb.Path
            WB.Windows(1).Caption = ActiveWorkbook.Name & _
              IIf(strPath = vbNullString, "", " - " & strPath)
        End Sub

전체 3,524
번호 카테고리 제목 작성자 작성일 추천 조회
3511 VBA
New vba Range의 셀 값을 변수로 값을 대입하기 (1)
vbawhat | 2021.07.31 | 추천 0 | 조회 23
vbawhat 2021.07.31 0 23
3510 VBA
New 텍스트 파일 끝에서부터 키워드로 검색하기 (1)
어제부터VBA | 2021.07.31 | 추천 0 | 조회 27
어제부터VBA 2021.07.31 0 27
3509 VBA
New 재고관리 vba 콤보박스 활용 검색 도움부탁드립니다 (1)
ycy | 2021.07.31 | 추천 0 | 조회 35
ycy 2021.07.31 0 35
3508 함수/공식
New 고수님...첫출근일 함수 부탁드립니다 첨부파일 (2)
jhp | 2021.07.30 | 추천 0 | 조회 50
jhp 2021.07.30 0 50
3507 VBA
New listbox에 Access query내용을 담는 방법 (1)
마녀 | 2021.07.30 | 추천 0 | 조회 24
마녀 2021.07.30 0 24
3506 함수/공식
New 구글 스프레드 SUMIFS 함수 (1)
호잇 | 2021.07.30 | 추천 0 | 조회 37
호잇 2021.07.30 0 37
3505 VBA
New 구글 스프레드시트에서 vba 모듈 활용법 (1)
aksr**** | 2021.07.30 | 추천 0 | 조회 28
aksr**** 2021.07.30 0 28
3504 함수/공식
New 다중조건 최대값 & 최소값 함수 문의의 건 첨부파일 (1)
kangj**** | 2021.07.30 | 추천 0 | 조회 33
kangj**** 2021.07.30 0 33
3503 파워쿼리/피벗
New 파워쿼리, 특정 시트의 셀값 참조하여 필터링하기 (2)
| 2021.07.30 | 추천 1 | 조회 40
2021.07.30 1 40
3502 함수/공식
New index(출력값,match(찾을값,범위,0)) 로 값을 구할 때 "match의 범위"를 "두개의 열"로 확장하는 방법? (3) 답변완료
HoDee | 2021.07.30 | 추천 1 | 조회 46
HoDee 2021.07.30 1 46
3501 기능/도구
New 스마트아트 작성 문의드려요 첨부파일 (1)
비달빵순 | 2021.07.30 | 추천 0 | 조회 30
비달빵순 2021.07.30 0 30
3500 함수/공식
New 엑셀 색상별 합계 3초만에 구하는 방법 강의를 듣고 색상별 개수를 구하는 방법을 알려 주세요 (7)
Finir2017 | 2021.07.29 | 추천 0 | 조회 53
Finir2017 2021.07.29 0 53
3499 함수/공식
New lookup 관련 찾는 범위가 필드이고 반환 열이 첫번째 인데 반환 값이 여러개, 반환 범위가 가로인 경우 첨부파일 (5) 답변완료
means**** | 2021.07.29 | 추천 1 | 조회 57
means**** 2021.07.29 1 57
3498 파워쿼리/피벗
New 파워쿼리 사용중 닫기및 로드 하는데 오버플로 오류가 포함되어 있다고 뜨는데 해결책이 무엇일까요? 첨부파일 (4)
이우용님 | 2021.07.29 | 추천 0 | 조회 32
이우용님 2021.07.29 0 32
3497 함수/공식
New 여러필드출력시트에 관한 질문입니다. 첨부파일 (4) 답변완료
크레이지 | 2021.07.29 | 추천 0 | 조회 54
크레이지 2021.07.29 0 54
3496 함수/공식
New vlookup 위치참조 (2) 답변완료
윤지은 | 2021.07.29 | 추천 0 | 조회 65
윤지은 2021.07.29 0 65
3495 함수/공식
New 검색어(중복값) 입력시 행과 열에 대한 값 불러오기?? 첨부파일 (5) 답변완료
o0o0**** | 2021.07.29 | 추천 0 | 조회 58
o0o0**** 2021.07.29 0 58
3494 문서서식
조건부서식 색필터시 문제 도와주세요 ㅜㅜ 첨부파일 (1)
한방인생 | 2021.07.28 | 추천 0 | 조회 54
한방인생 2021.07.28 0 54
3493 파워쿼리/피벗
파워쿼리 새로고침 시 변경된 원본 데이터가 있을 경우 따로 확인하거나 표시할 수 있는 방법이 있을까요? (1)
모아 | 2021.07.28 | 추천 0 | 조회 39
모아 2021.07.28 0 39
3492 VBA
[VBA] 폴더 내 하위 폴더 작업 (2)
몰라요ㅠㅠ | 2021.07.28 | 추천 0 | 조회 44
몰라요ㅠㅠ 2021.07.28 0 44
3491 기능/도구
맥용 엑셀에 DuTool 관련 추가기능을 설치할 수 있나요? (2) 답변완료
크레인 | 2021.07.28 | 추천 0 | 조회 33
크레인 2021.07.28 0 33
3490 함수/공식
조건있는 제일 많은값을 알고싶어요 (1)
채연 | 2021.07.28 | 추천 0 | 조회 45
채연 2021.07.28 0 45
3489 VBA
워크시트명을 변수로 전달해서 선택하는 방법 (3) 답변완료
ksm**** | 2021.07.28 | 추천 0 | 조회 50
ksm**** 2021.07.28 0 50
3488 함수/공식
엑셀 다중 조건 함수식 첨부파일 (1)
naver_5f055a605ee7d | 2021.07.28 | 추천 0 | 조회 62
naver_5f055a605ee7d 2021.07.28 0 62
3487 기능/도구
엑셀 복사후 붙여넣기시 참조범위 (3)
정윤태 | 2021.07.28 | 추천 0 | 조회 41
정윤태 2021.07.28 0 41
3486 문서서식
조건부서식 문의 (2)
블링블링 | 2021.07.28 | 추천 0 | 조회 43
블링블링 2021.07.28 0 43
3485 함수/공식
조건을 맞춰 그룹 묶는 법 좀 알려주실 수 있으신가요? (1)
대륙의대마왕 | 2021.07.28 | 추천 1 | 조회 44
대륙의대마왕 2021.07.28 1 44
3484 VBA
최근올리신 영상(엑셀재고관리툴만들기) 관련 질문올립니다.(2번째)ㅠ (1)
| 2021.07.28 | 추천 0 | 조회 48
2021.07.28 0 48
3483 함수/공식
스프레드 시트 다중조건 갯수 합계 산출하는 법 (1)
naver_60fe15011326f | 2021.07.28 | 추천 0 | 조회 38
naver_60fe15011326f 2021.07.28 0 38
3482 피벗테이블
피벗테이블 행 값 하위 계층 문제 첨부파일 (2)
soul**** | 2021.07.28 | 추천 0 | 조회 33
soul**** 2021.07.28 0 33