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

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

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

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

회원등급 : 가지1단계
포인트 : 319 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-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

      답변 감사드립니다.
      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,205
    번호 카테고리 제목 작성자 작성일 추천 조회
    4189 VBA
    New vba listbox 에 head 추가하는 방법
    서민철 | 2021.10.17 | 추천 0 | 조회 8
    서민철 2021.10.17 0 8
    4188 함수/공식
    New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
    엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 13
    엑셀왕왕초보 2021.10.17 0 13
    4187 함수/공식
    New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ
    민 쌤 | 2021.10.17 | 추천 0 | 조회 16
    민 쌤 2021.10.17 0 16
    4186 함수/공식
    New 꼭 도와 주세요. 첨부파일 (2)
    그린의달인 | 2021.10.16 | 추천 0 | 조회 34
    그린의달인 2021.10.16 0 34
    4185 함수/공식
    New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
    clairebear8 | 2021.10.16 | 추천 0 | 조회 33
    clairebear8 2021.10.16 0 33
    4184 함수/공식
    New 엑셀 공식 도와주세요~ 첨부파일 (1)
    ma**** | 2021.10.16 | 추천 0 | 조회 45
    ma**** 2021.10.16 0 45
    4183
    New 제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
    유림아빠 | 2021.10.16 | 추천 0 | 조회 26
    유림아빠 2021.10.16 0 26
    4182 차트/그래프
    New 이런 챠트도 가능한지요 (1)
    | 2021.10.16 | 추천 0 | 조회 44
    2021.10.16 0 44
    4181 함수/공식
    New 중복값 제거 및 특정조건을 만족하는 값만 표시 첨부파일 (4)
    리부트짱가 | 2021.10.16 | 추천 0 | 조회 42
    리부트짱가 2021.10.16 0 42
    4180 VBA
    New pdf파일저장 + 드롭다운 매크로 VBA 문의드립니다. 첨부파일 (1)
    호두마루 | 2021.10.16 | 추천 1 | 조회 25
    호두마루 2021.10.16 1 25
    4179 기능/도구
    New 다중조건을 다수의 셀에 입력하는 방법 (1)
    seeking | 2021.10.15 | 추천 0 | 조회 34
    seeking 2021.10.15 0 34
    4178 함수/공식
    New 같은 값끼리 같은 색을 적용하고 싶습니다 첨부파일 (6)
    유령회원 | 2021.10.15 | 추천 0 | 조회 33
    유령회원 2021.10.15 0 33
    4177 VBA
    New VBA로 날짜 입력하는데 형식이 날짜형실으로 바꿀수있을까요? (1)
    박종만 | 2021.10.15 | 추천 0 | 조회 29
    박종만 2021.10.15 0 29
    4176 VBA
    New VBA에서 엑셀파일 여는 버튼을 만들었습니다. 첨부파일 (2) 답변완료
    늘푸른2 | 2021.10.15 | 추천 0 | 조회 37
    늘푸른2 2021.10.15 0 37
    4175 VBA
    New 살려주세욤.. 다중조건+중복제거 데이터유효성검사.. 첨부파일
    지져스 | 2021.10.15 | 추천 0 | 조회 42
    지져스 2021.10.15 0 42
    4174 차트/그래프
    New 차트 시간축 간격을 조정하는 방법 첨부파일 (1)
    kimki**** | 2021.10.15 | 추천 0 | 조회 23
    kimki**** 2021.10.15 0 23
    4173 VBA
    웹 크롤링 관련 문의 (2) 답변완료
    숯검뎅이 | 2021.10.15 | 추천 0 | 조회 35
    숯검뎅이 2021.10.15 0 35
    4172 VBA
    유저폼 리스트박스 검색 첨부파일 (2) 답변완료
    007 | 2021.10.14 | 추천 0 | 조회 40
    007 2021.10.14 0 40
    4171 VBA
    셀선택 관련 문의 드려요. (3) 답변완료
    033cola | 2021.10.14 | 추천 0 | 조회 36
    033cola 2021.10.14 0 36
    4170 차트/그래프
    특정 가로축을 강조하는 방법 및 세로축 단위 입력 방법이 궁금합니다. (3) 답변완료
    sorryfo**** | 2021.10.14 | 추천 0 | 조회 29
    sorryfo**** 2021.10.14 0 29
    4169 VBA
    파일의 경로 이동 VBA구문질문 (3) 답변완료
    H.B | 2021.10.14 | 추천 0 | 조회 30
    H.B 2021.10.14 0 30
    4168 함수/공식
    SUMIFS 함수 오류가 뜹니다! 첨부파일 (1)
    AndOrEnd | 2021.10.14 | 추천 0 | 조회 33
    AndOrEnd 2021.10.14 0 33
    4167 함수/공식
    각 시트 값 조건별로 취합하기 첨부파일 (2)
    롤로랄라 | 2021.10.14 | 추천 0 | 조회 42
    롤로랄라 2021.10.14 0 42
    4166 VBA
    변수에 worksheetfunction값 넣기 (9) 답변완료
    kimki**** | 2021.10.14 | 추천 0 | 조회 40
    kimki**** 2021.10.14 0 40
    4165 VBA
    행바꿈 관련 재질문. (3) 답변완료
    H.B | 2021.10.14 | 추천 0 | 조회 31
    H.B 2021.10.14 0 31
    4164 함수/공식
    INDEX함수 2번째,3번째 인수없이 사용이 가능한가요? (3)
    월마리아 | 2021.10.13 | 추천 0 | 조회 37
    월마리아 2021.10.13 0 37
    4163 함수/공식
    고수님들의 도움을 부탁드려요 첨부파일 (3)
    왕코 | 2021.10.13 | 추천 0 | 조회 49
    왕코 2021.10.13 0 49
    4162 문서서식
    설비 Layout 도면에서 장비번호 검색시 도형이 있는 위치로 이동하는 방법 첨부파일 (5)
    아빠의꿈 | 2021.10.13 | 추천 1 | 조회 62
    아빠의꿈 2021.10.13 1 62
    4161 함수/공식
    조건부서식 관련해서 문의 드려요 (2)
    AgariFighter | 2021.10.13 | 추천 0 | 조회 33
    AgariFighter 2021.10.13 0 33
    4160 기능/도구
    고수분들 도와주세요!! 도서관 책의 일렬번호를 매크로? 크롤링? 시킬 수는 없을까요? 첨부파일 (3)
    Gemma | 2021.10.13 | 추천 0 | 조회 56
    Gemma 2021.10.13 0 56