파른 파일의 모든 시트 복사해 와서 붙여넣기 VBA

VBA
작성자
위례 느낌 짱
작성일
2021-11-18 17:03
조회
78
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

한번 더 고수님들의 도움 요청 드립니다.

 

매크로 파일은 1개 시트(sheet1)로 고정이며, 이 상태에서 매크로 실행하면

수시로 다른 파일을 찾아 선택해서
(정해지지 않은 갯수의) 모든 시트를
'sheet1' 오른쪽에 연결하여 붙여넣기 하는 VBA 입니다.

 

실력이 부족해서 현재까지는

'불러오기' 까지만 매크로 만들었으나,

다른 파일의 모든 시트를 불러와 붙여넣기 하는 것은 수작업으로 하고 있어서

이 작업 또한 매크로로 돌리고 싶습니다.

이러한 작업이 계속 많이 수행해야 하기 때문에 꼭 필요하답니다 ~~~ 감사합니다 ~

회원등급 : 4레벨
포인트 : 149 EP
총질문 : 8 개 (마감율 : 0%)
채택답변 : 0 개
전체 3

  • 2021-11-23 10:24

    모듈 1, 3번 보시면 됩니다.

    1번의 경우는 기존 있던 파일 불러오기 기능을 조금더 확장하여 여러파일 선택가능하게 구현했고,

    각 파일을 돌면서 시트들을 "기준"시트 오른쪽에 붙여넣습니다.

     

    모듈3은 시트초기화 입니다. 기준시트를 제외한 시트를 삭제합니다.

    첨부파일 : 질의-1.-매크로-실행하여-2번파일-시트들을-끌고-올-파일.xlsm


    • 2021-11-23 11:53

      @jhp0 님 저는 VBA 완전유딩이라서 공부 좀 하고자 문의 드립니다.

      아래 VBA에서

      • 1) 불러올 시트를 "기준"시트 오른쪽 부터 역순으로 붙여 넣도록 되어 있는데, 이를 정순으로 붙여넣기 하려면 VBA의 어느 부분을 어떻게 수정하면 좋을지
      • 2) 그리고, 불러올 모든 시트의 원본과는 다르게 그림도 없고, 셀병합도 해제되도록 해 주셨는데, 이러한 기능은 VBA의 어느 부분에 해당하는지

        좀 알려 주시면 정말 감사하겠습니다.

      • 감사합니다 ~~~

       

      Dim Fname As String

      Set T_ws = ActiveSheet
      Set T_wb = ThisWorkbook

      k = 1

      Files = Application.GetOpenFilename(MultiSelect:=True)

      For i = 1 To UBound(Files)

      Set file = Workbooks.Open(Filename:=Files(i))

      For j = 1 To file.Worksheets.Count
      Set shC = file.Sheets(k)
      shC.Copy after:=T_wb.Worksheets("기준")
      k = k + 1
      Next j

      file.Close

      Next i


    • 2021-11-23 11:22

      @jhp0 님 감사합니다.

      저희 업무효율에 많은 도움 되겠습니다.
      아울러 적용해보고 혹시 필요하면 또 도움 청해도 되겠지요 ? ~~~

      아무쪼록 정말 감사드리며 ... 건강하시고 늘 행복하세요 ~~~


전체 4,702
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 807
트로피 오빠두엑셀 2021.10.28 16 807
24347 파워쿼리/피벗
New 질문 있습니다. 파워쿼리에서 Text.Select가 실행이 안됩니다. 첨부파일
railway | 14:34 | 추천 0 | 조회 1
railway 14:34 0 1
24343 파워쿼리/피벗
New 엑셀 파워쿼리 파일병합
min**** | 13:43 | 추천 0 | 조회 13
min**** 13:43 0 13
24339 VBA
New 크롤링 반복 (재질문 입니다) 첨부파일 (1)
하늘의 꿈 | 12:48 | 추천 0 | 조회 10
하늘의 꿈 12:48 0 10
24330 VBA
New 매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다. 첨부파일 (3) 답변완료
호랑이파워 | 01:37 | 추천 0 | 조회 33
호랑이파워 01:37 0 33
24321 VBA
New 열 나누기 (4)
정미현 | 2021.12.05 | 추천 0 | 조회 33
정미현 2021.12.05 0 33
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (5) 답변완료
wlfl**** | 2021.12.05 | 추천 0 | 조회 39
wlfl**** 2021.12.05 0 39
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 2021.12.05 | 추천 0 | 조회 27
(알수없음) 2021.12.05 0 27
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 59
떠희아빠 2021.12.04 0 59
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 31
야기분좋다 2021.12.04 1 31
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일 (3) 답변완료
어려워 | 2021.12.04 | 추천 0 | 조회 31
어려워 2021.12.04 0 31
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 41
제비제비 2021.12.04 0 41
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 2021.12.04 | 추천 0 | 조회 35
열공합시다 2021.12.04 0 35
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1) 답변완료
이치영 | 2021.12.04 | 추천 0 | 조회 37
이치영 2021.12.04 0 37
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 45
naver_5f055a605ee7d 2021.12.04 0 45
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (2) 답변완료
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 30
ㅈㄱㄹ 2021.12.04 0 30
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 38
다우미노 2021.12.03 0 38
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 46
뚜루루 2021.12.03 1 46
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 54
007 2021.12.03 0 54
24271 VBA
Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 34
Lucas's 2021.12.03 0 34
24270 기능/도구
여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (2) 답변완료
함수시르미 | 2021.12.03 | 추천 1 | 조회 36
함수시르미 2021.12.03 1 36
24262 VBA
불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 51
파퍼 2021.12.03 0 51
24259 함수/공식
계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 43
skyzza**** 2021.12.03 0 43
24253 함수/공식
파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 34
안녕 2021.12.02 0 34
24252 함수/공식
표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 38
김성환 2021.12.02 0 38
24251 기능/도구
엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 35
너의나라 2021.12.02 0 35
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일 (1)
Etter | 2021.12.02 | 추천 0 | 조회 37
Etter 2021.12.02 0 37
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 39
argus 2021.12.02 0 39
24239 VBA
[초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 41
스캐쳐 2021.12.02 0 41