절대 경로가 있는 파일 특정 폴더로 복사하기

VBA
작성자
기침과가난과사랑
작성일
2021-06-01 08:40
조회
315

안녕하세요 오빠두 엑셀 보면서 많이 배우고 있는 직장인입니다.

다름이 아니라 절대 경로를 표시한 시트에서 아래처럼 INDEX MATCH함수로 원하는 목록만
하이퍼링크로 불러왔습니다.
=IFERROR(HYPERLINK(INDEX('DB데이터 작성'!C:C,MATCH($B5,'DB데이터 작성'!$A:$A,0))),"")
하이퍼 링크로 불러온 열마다(H열, J열...)을 특정 폴더(H1)에 일괄 저장하고 싶습니다. 기초가 없다보니 VBA 코드를 봐도 이해 되지 않습니다.
도움 부타드립니다.

회원등급 : 5레벨
포인트 : 329 EP
총질문 : 2 개 (마감율 : 100%)
채택답변 : 0 개
전체 7

  • 2021-06-01 09:26
    채택된 답변

    아래 코드에서 "For col=시작행번호 To 끝나는행번호"로 수정만 하시면 됩니다. 파일이 존재한다는 가정하에 파일 존재 체크 코드는 넣지 않았습니다.

    Option Explicit
    
    Sub copy()
       Dim col As Long
       Dim fso As Object
       Dim dest As String
       Set fso = CreateObject("Scripting.FileSystemObject")
       
       dest = Cells(1, "H").Value
       
       For col = 4 To 5
          If Cells(col, "H").Value <> "" Then
             fso.CopyFile Cells(col, "H").Value, dest
          End If
          
          If Cells(col, "I").Value <> "" Then
             fso.CopyFile Cells(col, "I").Value, dest
          End If
       Next
    End Sub
    

     


  • 2021-06-02 11:34

    소스 코드 수정하여 첨부합니다. 해당 파일이 없어 테스트를 해보지 못했습니다.

    첨부파일 : 폴더취합_질문.xlsm


    • 2021-06-02 13:47

      @dra**** 님 감사합니다. 잘 작동 됩니다.


  • 2021-06-01 18:57

    답변 감사드립니다.

    Option Explicit
    
    Sub copy()
    Dim col As Long
    Dim fso As Object
    Dim dest As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    dest = Cells(1, "H").Value
    
    For col = 4 To 150
    If Cells(col, "H").Value <> "" Then
    fso.CopyFile Cells(col, "H").Value, dest
    End If
    
    If Cells(col, "I").Value <> "" Then
    fso.CopyFile Cells(col, "I").Value, dest
    End If
    Next

    위처럼 작성했는데 '53'런타임 오류가 발생하였습다
    파일을 찾을 수 없습니다 라는 메세지를 띄웁니다.
    도와주세요 ㅠㅠ

    답글문의-추가.png


    • 2021-06-01 23:54

      @기침과가난과사랑 님 제가 있는 파일들오 테스해보고 올려 드린것인데, 짐작 가는 상황이 있습니다.

      1. 원본 파일이 없어서 그럴 수 있습니다.

    • 2. 엑셀 워크시트가 위의 시트가 있는 워크시트로 활성화 되어 있어야 합니다.

      소스 파일을 모르기 때문에 워크시트가 질문하신 시트 하나만 있다고 가정하고 작성한것입니다.

      3. 위의 시트를 보면 시작 행이 5행인 듯한데... 행 변호를 확인해 보셨는지요?


    • 2021-06-02 10:23

      @dra**** 님 답변 감사드립니다.
      1.원본파일이 있는 것도 있고 없는 것도 있습니다.
      5행으로 수정했습니다

      Option Explicit
      
      Sub copy()
         Dim col As Long
         Dim fso As Object
         Dim dest As String
         Set fso = CreateObject("Scripting.FileSystemObject")
         
         dest = Cells(1, "H").Value
         
         For col = 5 To 150
            If Cells(col, "H").Value <> "" Then
               fso.CopyFile Cells(col, "H").Value, dest
            End If
            
            If Cells(col, "H").Value <> "" Then
               fso.CopyFile Cells(col, "H").Value, dest
            End If
         Next
      End Sub
      

      I열에 있는 파일도 가져와서 H로 수정해봤습니다;;

      하이퍼링크 걸려있는 파일 모두 다 열려서 경로가 잘못 된 것은 없는 것 같은데 파일을 6개 만 가져옵니다. ;;;런타임 52 오류도 뜨구요...

      원본파일 첨부했습니다 ;;; 고맙습니다.

       

      답글문의-추가_1.png

      첨부파일 : 폴더취합_질문.xlsm


  • 2021-06-02 11:19

    "H"열하고 "I"열에 있는 파일을 "H2"에 정의한 경로로 파일로 복사려는 것  아닌가요?

      For col = 5 To 150
          If Cells(col, "H").Value <> "" Then
             fso.CopyFile Cells(col, "H").Value, dest
          End If
          
          If Cells(col, "H").Value <> "" Then
             fso.CopyFile Cells(col, "H").Value, dest ' 왜 이 부분을 "H"로 수정했는지 모르겠습니다. 
          End If
       Next
    End Sub

     


  • 전체 4,652
    번호 카테고리 제목 작성자 작성일 추천 조회
    공지사항 공지사항
    ⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (9)
    오빠두엑셀 | 2021.10.28 | 추천 15 | 조회 708
    트로피 오빠두엑셀 2021.10.28 15 708
    24168 VBA
    New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
    ryan_cruze | 16:30 | 추천 0 | 조회 23
    ryan_cruze 16:30 0 23
    24166 기능/도구
    New 질문있습니다.
    최강씨맨 | 16:14 | 추천 0 | 조회 16
    최강씨맨 16:14 0 16
    24163 함수/공식
    New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
    PAKSAW | 15:34 | 추천 0 | 조회 17
    PAKSAW 15:34 0 17
    24161 함수/공식
    New 특정 날짜 값 찾기 (2)
    ㄱ박민극 | 15:23 | 추천 -1 | 조회 25
    ㄱ박민극 15:23 -1 25
    24154 피벗테이블
    New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
    가리 | 12:22 | 추천 0 | 조회 26
    가리 12:22 0 26
    24153 VBA
    New 엑셀 검색 창 첨부파일 (2)
    이혜 | 11:59 | 추천 0 | 조회 24
    이혜 11:59 0 24
    24148 피벗테이블
    New 피벗테이블 형태의 데이터베이스 변환 (1)
    이길호 | 10:34 | 추천 0 | 조회 26
    이길호 10:34 0 26
    파워쿼리/피벗
    New Re:피벗테이블 형태의 데이터베이스 변환
    Yukon | 16:08 | 추천 0 | 조회 12
    Yukon 16:08 0 12
    24140 VBA
    New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
    이치영 | 01:37 | 추천 0 | 조회 37
    이치영 01:37 0 37
    24135 VBA
    New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
    툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 51
    툴잇지 with 우정기기 2021.11.29 0 51
    24132 함수/공식
    New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
    키큰아저씨 | 2021.11.29 | 추천 0 | 조회 49
    키큰아저씨 2021.11.29 0 49
    24129 VBA
    New 직사각형 도형 삭제vba (2) 답변완료
    H.B | 2021.11.29 | 추천 1 | 조회 33
    H.B 2021.11.29 1 33
    24126 VBA
    New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
    볼펜수리공 | 2021.11.29 | 추천 0 | 조회 29
    볼펜수리공 2021.11.29 0 29
    24120 기능/도구
    New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
    glas**** | 2021.11.29 | 추천 0 | 조회 35
    glas**** 2021.11.29 0 35
    24117 함수/공식
    New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
    감사하모니카 | 2021.11.29 | 추천 0 | 조회 41
    감사하모니카 2021.11.29 0 41
    24116 VBA
    New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
    한정석 | 2021.11.29 | 추천 0 | 조회 48
    한정석 2021.11.29 0 48
    24113 함수/공식
    New 조건 서식 질문입니다. 첨부파일 (1)
    space | 2021.11.29 | 추천 0 | 조회 38
    space 2021.11.29 0 38
    24111 피벗테이블
    New 피벗테이블 DAX함수 관련 문의
    T첫 | 2021.11.29 | 추천 0 | 조회 24
    T첫 2021.11.29 0 24
    24106 함수/공식
    New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
    공수래 | 2021.11.29 | 추천 0 | 조회 40
    공수래 2021.11.29 0 40
    24099 함수/공식
    New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
    유지연 | 2021.11.29 | 추천 0 | 조회 30
    유지연 2021.11.29 0 30
    24098 VBA
    New 워드 Format(숫자, "#,###") (1) 답변완료
    argus | 2021.11.28 | 추천 0 | 조회 38
    argus 2021.11.28 0 38
    24097 VBA
    New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
    축전 | 2021.11.28 | 추천 0 | 조회 43
    축전 2021.11.28 0 43
    24096 VBA
    New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
    가을전어 | 2021.11.28 | 추천 0 | 조회 24
    가을전어 2021.11.28 0 24
    24093 기능/도구
    New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
    어루 | 2021.11.28 | 추천 0 | 조회 21
    어루 2021.11.28 0 21
    24091 VBA
    New 도와주세요! 뭐가 문제인지 못찾겠습니다.
    y**** | 2021.11.28 | 추천 0 | 조회 40
    y**** 2021.11.28 0 40
    24089 VBA
    New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
    ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 48
    ㅈㄱㄹ 2021.11.28 0 48
    24088 함수/공식
    New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
    007 | 2021.11.28 | 추천 0 | 조회 60
    007 2021.11.28 0 60
    24081 함수/공식
    New 영문주소를 한글주소로 변경 희망합니다. (1)
    루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 38
    루s cos 개인대행 2021.11.28 0 38
    24072 VBA
    New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
    호랑이파워 | 2021.11.28 | 추천 0 | 조회 59
    호랑이파워 2021.11.28 0 59
    24068 파워쿼리/피벗
    New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
    월마리아 | 2021.11.28 | 추천 0 | 조회 31
    월마리아 2021.11.28 0 31
    24065 피벗테이블
    New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
    jyj6**** | 2021.11.27 | 추천 0 | 조회 56
    jyj6**** 2021.11.27 0 56