VBA에서 엑셀파일 여는 버튼을 만들었습니다.

VBA
작성자
늘푸른2
작성일
2021-10-15 11:50
조회
396
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

안녕하세요?

 

첨부파일과 같이 엑셀파일을 열 수 있는 VBA를 만들었는데요,

  1. 열어야 하는 파일이 하나씩 늘어날 때마다 해당 파일이름을 넣어주면 파일이름을 캡션이름으로 하는 단추가 자동으로 생기게 할 수 있을까요?
스크랩
공유
회원등급 : 2레벨
포인트 : 60 EP
총질문 : 2 개 (마감율 : 50%)
채택답변 : 0 개
전체 2

  • 2021-10-15 13:36
    채택된 답변

    @늘푸른2 님  

    파일을 버튼으로 연결해서 오픈하는 목적이라면,
    UI 요소를 제거하고 기능만을 놓고 보면,
    아래의 소스 코드로 해결할 수 있을 겁니다.

    아래 코드를 sample 파일에 삽입 후 실행해 보세요.

    '//////////////////////////////////////////////////////////////////////////////////////////////////
    '// https://www.get-digital-help.com/insert-hyperlinks-to-all-files-in-current-folder/
    '//////////////////////////////////////////////////////////////////////////////////////////////////
    Sub InsertFilesInFolder()
        Dim sPath As String, Value As String
        Dim WS As Worksheet
        Set WS = Sheets.Add
        sPath = ActiveWorkbook.Path & "\"
        Value = Dir(sPath, &H1F)
        WS.Range("A1") = "Filename"
        Set StartCell = WS.Range("A2")
        Do Until Value = ""
        If Value = "." Or Value = ".." Then
        Else
            If GetAttr(sPath & Value) = 16 Then
            Else
                If Value <> ActiveWorkbook.Name And Value <> "~$" & ActiveWorkbook.Name Then
                    StartCell.Hyperlinks.Add Anchor:=StartCell, Address:= _
                    Value, TextToDisplay:=Value
                    Set StartCell = StartCell.Offset(1, 0)
                End If
            End If
          End If
        Value = Dir
        Loop
    End Sub

     


    • 2021-10-15 15:06

      @야휘 님 야휘님, 답글 남겨주셔서 고맙습니다!! 제가 질문 내용을 잘못 기술한 것 같습니다. 첨부 파일을 다시 올립니다.

      여기서 branch 6이라는 파일을 여는 버튼을 추가할 때,  "branch6"이라고 입력을 받아서 자동으로 버튼을 생성하고 싶었던 것이었습니다. 그런데 생각해 보니, 그건 그다지 효용가치가 있어 보이지는 않아서 야휘님의 답글을 댓글채택하였습니다. 그렇더라도 혹시 좋은 아이디어가 있으시면 공유해주시길 부탁드립니다.

      제가 하고 싶은 것은 여러개의 엑셀파일이 같은 폴더 (또는 다른 폴더)에 있는 경우, 버튼을 클릭하면 그 파일이 열리도록 하고 싶은 것이고, 그 버튼들을 자동으로 만들고 싶었던 것입니다.

      답글 주심에 다시 한 번 감사드립니다.

      첨부파일 : test2.zip


전체 7,798
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다!
오빠두엑셀 | 2022.09.28 | 추천 1 | 조회 48
오빠두엑셀 2022.09.28 1 48
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1662
오빠두엑셀 2022.08.04 4 1662
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (95)
오빠두엑셀 | 2021.10.28 | 추천 125 | 조회 7406
오빠두엑셀 2021.10.28 125 7406
42574 함수/공식
New 날짜에 대한 IF 함수 엑셀파일 (1)
sky3**** | 2022.09.28 | 추천 0 | 조회 10
sky3**** 2022.09.28 - 10
42573 함수/공식
New VLOOKUP 함수에서 표이름을 입력하니까 #N/A 오류가 발생해요 엑셀파일첨부파일 (1)
꿈꾸는부자 | 2022.09.28 | 추천 0 | 조회 11
꿈꾸는부자 2022.09.28 - 11
42570 VBA
New VBA 매크로를 쓰고 싶습니다 엑셀파일첨부파일
실런 | 2022.09.28 | 추천 0 | 조회 16
실런 2022.09.28 - 16
42561 함수/공식
New 날짜 검색 수식 관련 질문 (2)
마루모토 | 2022.09.28 | 추천 0 | 조회 23
마루모토 2022.09.28 - 23
42559 기능/도구
New 행x열 표를 한 열로 쉽게 바꾸는 방법 문의 엑셀파일첨부파일 (1)
mac**** | 2022.09.28 | 추천 0 | 조회 30
mac**** 2022.09.28 - 30
42558 VBA
New 매크로로 특정셀이 공란일 때 특정셀 내용을 다 지우는 방법 (1)
디엠 | 2022.09.28 | 추천 0 | 조회 20
디엠 2022.09.28 - 20
42555 문서서식
New A1 A3 A4 값을 열로 자동채우기 (7) 답변완료
chri**** | 2022.09.28 | 추천 0 | 조회 32
chri**** 2022.09.28 - 32
42554 차트/그래프
New 피벗차트의 제목 연결 만들기 첨부파일 (1)
하늘보기119 | 2022.09.28 | 추천 0 | 조회 25
하늘보기119 2022.09.28 - 25
42552 함수/공식
New 날짜 검색 조건 질문 (3) 답변완료
마루모토 | 2022.09.28 | 추천 0 | 조회 28
마루모토 2022.09.28 - 28
42551 함수/공식
New 데이타 유효성 검사문제 엑셀파일 (2)
redi**** | 2022.09.28 | 추천 0 | 조회 29
redi**** 2022.09.28 - 29
42549 VBA
New VBA 뉴스기사 크롤링 관련 질문입니다. 첨부파일 (1)
jjang**** | 2022.09.28 | 추천 0 | 조회 25
jjang**** 2022.09.28 - 25
42547 VBA
New 복사붙여넣기 매크로 (도와주세요 ㅠㅠㅠ) (재질문) 엑셀파일첨부파일
wldud**** | 2022.09.28 | 추천 0 | 조회 31
wldud**** 2022.09.28 - 31
42542 함수/공식
New 엑셀 VLookup 함수에서 두 곳 중 한 곳에만 결과값이 안나오는 이유가 무엇일까요? 엑셀파일 (7)
김기태 | 2022.09.28 | 추천 0 | 조회 45
김기태 2022.09.28 - 45
42540 피벗테이블
New 피벗테이블 특정항목만 X2, X3 자동 곱하기 되게 엑셀파일첨부파일
알럽고구마 | 2022.09.28 | 추천 1 | 조회 24
알럽고구마 2022.09.28 1 24
42533 함수/공식
New 숫자 추출 후 더하기 및 곱하기 엑셀파일첨부파일 (3) 답변완료
하나포 | 2022.09.28 | 추천 0 | 조회 24
하나포 2022.09.28 - 24
42531 문서서식
New data 값이 없을 때는 어떤 값을 입력하면 괜찮은가요? (1)
twou**** | 2022.09.28 | 추천 0 | 조회 29
twou**** 2022.09.28 - 29
42526 VBA
New 복사붙여넣기 매크로 (도와주세요 ㅠㅠㅠ) 엑셀파일첨부파일
wldud**** | 2022.09.28 | 추천 0 | 조회 44
wldud**** 2022.09.28 - 44
42523 기능/도구
New 엑셀에 카메라 기능이 안됩니다. 첨부파일 (4)
무럭무럭예찬이 | 2022.09.28 | 추천 0 | 조회 40
무럭무럭예찬이 2022.09.28 - 40
42516 함수/공식
New 날짜에 대한 IF함수 엑셀파일 (3)
sky3**** | 2022.09.27 | 추천 0 | 조회 51
sky3**** 2022.09.27 - 51
42515 함수/공식
New 집계현황에 각시트의 해당되는 값을 찾는 함수가 필요합니다. 엑셀파일 (2)
낮은자 | 2022.09.27 | 추천 0 | 조회 29
낮은자 2022.09.27 - 29
42514 함수/공식
New 작업순서 변경 시 하나 바꿀 때 나머지 작업순서도 연동되어 바꾸는 방법 (생산관리, 생산계획) 첨부파일 (2)
스키마타 | 2022.09.27 | 추천 0 | 조회 34
스키마타 2022.09.27 - 34
42509 VBA
New MsoScroll 지우는 방법. 첨부파일 (2)
033cola | 2022.09.27 | 추천 0 | 조회 36
033cola 2022.09.27 - 36
42507
New subtotal + 필터적용시 오류 문의 입니다. 엑셀파일 (2)
1003po**** | 2022.09.27 | 추천 0 | 조회 39
1003po**** 2022.09.27 - 39
42503 파워쿼리/피벗
New 피벗테이블 / 파워커리 행 늘리는 방법 문의 엑셀파일첨부파일 (1)
주태훈 | 2022.09.27 | 추천 0 | 조회 43
주태훈 2022.09.27 - 43
42501 파워쿼리/피벗
New 파워피벗 열조건 비율 계산 엑셀파일첨부파일 (2) 답변완료
bstm**** | 2022.09.27 | 추천 0 | 조회 47
bstm**** 2022.09.27 - 47
42495 함수/공식
New 문제관련 (7)
제두진 | 2022.09.27 | 추천 0 | 조회 45
제두진 2022.09.27 - 45
42488 VBA
New 엑셀 고급필터 자동화 질문드립니다. (부탁드립니다 ㅠㅠ) (재질문) 엑셀파일 (2) 답변완료
wldud**** | 2022.09.27 | 추천 0 | 조회 57
wldud**** 2022.09.27 - 57
42485 함수/공식
New 여기 엑셀 고급 11강 - FILTER에 대해서 엑셀파일 (5) 답변완료
구름나그네 | 2022.09.27 | 추천 0 | 조회 52
구름나그네 2022.09.27 - 52
42482 문서서식
New 중복값 표시하기가 이해가 안됩니다. 할 수 있는 방법 좀 알려주세요 첨부파일 (1)
엑셀마스터가되고싶다 | 2022.09.26 | 추천 0 | 조회 39
엑셀마스터가되고싶다 2022.09.26 - 39
42478 VBA
New 특정한 값이 있는 행 추출(작성된 VBA 수정) 엑셀파일첨부파일 (1)
007 | 2022.09.26 | 추천 0 | 조회 49
007 2022.09.26 - 49