(엑셀 초보) VBA를 활용한 특정 폴더 내 파일들을 자동으로 하이퍼링크 하는법 질문입니다..!

VBA
작성자
린찬
작성일
2023-07-13 00:01
조회
1572
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : VBA를 활용한 특정 폴더 내 파일 자동 링크

안녕하세요! 정산 관련 업무 중인 엑셀 왕초보 입니다...!

영수증 파일을 한 폴더에 모아두고 VBA를 활용해 그 폴더 내에 있는 파일에 링크를 걸어서 자동으로 파일이 해당 폴더에 추가 될 때 마다 혹은 일정 시간마다 자동으로 업데이트 되어 그 영수증 파일명과 세부 사항을 기록한 행의 끝에 그 파일에 대한 링크가 삽입되도록 만들고 싶습니다..!

즉 Work order file name 에 파일 이름을 쓰면 자동으로 1행과 같은 모습이 되게 끔 만들고 싶습니다. 특정 폴더 내 파일을 엑셀에 링크로 가져오는 건 가능해서 새로운 시트를 만들고 그 파일을 Lookup으로 당겨오려고 했는데 그것도 잘 안되네요...자동화도 할 줄 모르고... ㅠ 고수분들의 도움이 필요합니다...!

아니면 Workorder file name 열에 바로 하이퍼 링크가 자동으로 물리게끔 되면 더 좋아요. INVOICE No. 열에도 마찬가지로 적용되도록 하려고 합니다.

 

=HYPERLINK(CONCATENATE(폴더경로,파일이름 넣어둔 셀 번호),파일이름 넣어둔 셀 번호) 로 해도 안되더라구요..

정말 감사합니다 🙂

신고
스크랩
공유
전체 1

  • 2023-07-15 22:32
    채택된 답변

    @린찬 님 첨부파일이 있는 폴더에 Files라는 하위폴더를 만들고 해당 파일들을 복사.

    Sheet1 H3부터 아래로 파일이름 입력-->우측 "I"열에 하이퍼링크 생성

    Private Sub Worksheet_Change(ByVal Target As Range)
     
        Dim sPath As String, sName As String, sExtn As String
     
        If Target.Column <> 8 Then Exit Sub
        If Target.Row <= 2 Then Exit Sub
        If Target.Value = "" Then Exit Sub
     
        On Error GoTo EH
     
        sPath = ThisWorkbook.Path & "\" & "Files"  '***하위폴더 대신 특정 폴더를 직접 입력해도 됨
        sExtn = ".xlsx"
        Sheet1.Hyperlinks.Add _
            Anchor:=Target.Offset(0, 1), _
            Address:=sPath & "\" & Target.Value & sExtn, _
            TextToDisplay:=Target.Value & sExtn
        Exit Sub
     
    EH:
     
    End Sub

     

    첨부파일 : 질문-1.xlsm


전체 16,938
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (291)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 846352
오빠두엑셀 2022.02.03 554 846352
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31518
오빠두엑셀 2021.10.28 304 31518
74628 구글시트
New IMPORTRANGE 함수에서 칸을 늘리면 사라지는데 고정하는 방법은 없을까요? (1)
야망이 | 17:36 | 추천 0 | 조회 19
야망이 17:36 - 19
74627 문서서식
New 조건부 서식 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 15:44 | 추천 0 | 조회 44
배고픈짐승 15:44 - 44
74626 파워쿼리/피벗
New [파워쿼리] 여러 파일 한번에 불러올 때 데이터 유실 첨부파일 (3)
naa**** | 14:40 | 추천 0 | 조회 42
naa**** 14:40 - 42
74625 VBA
New 시트이동시 유저폼 실행방법 문의 (2) 답변완료
땡이 | 14:36 | 추천 0 | 조회 38
땡이 14:36 - 38
74621 기능/도구
New 4개의 열 에서 같은 이름 가로로 정렬 (3)
Bukonge | 12:36 | 추천 0 | 조회 47
Bukonge 12:36 - 47
74618 VBA
New 유저폼에 바코드스캔시 입력속도 개선방법? (5) 답변완료
땡이 | 11:36 | 추천 0 | 조회 50
땡이 11:36 - 50
74616 함수/공식
New Rawdata 첨부파일 (4)
HIHUGO | 10:48 | 추천 0 | 조회 61
HIHUGO 10:48 - 61
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (3)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 75
배고픈짐승 2024.10.30 - 75
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 92
iwnqn 2024.10.30 - 92
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2) 답변완료
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 66
퉁퉁이 2024.10.30 - 66
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (9) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 94
저도해볼게요 2024.10.30 - 94
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 59
스톤스톤 2024.10.30 - 59
74585 VBA
New UserForm 크기질문 첨부파일 (5)
땡이 | 2024.10.30 | 추천 0 | 조회 72
땡이 2024.10.30 - 72
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (6)
qlcc**** | 2024.10.30 | 추천 0 | 조회 86
qlcc**** 2024.10.30 - 86
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 70
김은상 2024.10.30 - 70
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 56
2024.10.30 - 56
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 62
구리구리이 2024.10.30 - 62
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3) 답변완료
서기 | 2024.10.30 | 추천 0 | 조회 59
서기 2024.10.30 - 59
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 59
문과적남자 2024.10.30 - 59
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (2) 답변완료
라핼 | 2024.10.30 | 추천 0 | 조회 78
라핼 2024.10.30 - 78
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 73
정재욱 2024.10.30 - 73
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 79
침착해 2024.10.30 - 79
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 65
ek02 2024.10.30 - 65
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (4)
야만용사 | 2024.10.29 | 추천 0 | 조회 99
야만용사 2024.10.29 - 99
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 90
rarara 2024.10.29 - 90
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (11)
| 2024.10.29 | 추천 0 | 조회 129
2024.10.29 - 129
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 96
gys**** 2024.10.29 - 96
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 91
Moto 2024.10.29 - 91
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 78
ViVaViva 2024.10.29 - 78
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 94
TMOH 2024.10.29 - 94