시트 다른 엑셀파일로 시트복사

VBA
작성자
이하늘
작성일
2021-01-22 14:19
조회
79

AAA 엑셀파일에 있는 완성 시트를 엑셀파일 BBB란 이름를 가진 엑셀파일 완성 시트로 복사하고 싶습니다.

물론 BBB 파일에 완성이란 시트가 존재하면 삭제하던간 덮어 쒸워야 합니다.

 

AAA에 완성 시트를 BBB 에 완성시트로 복사한다는 말입니다.

시트복사 버튼은 AAA 에 아무 시트에 만들어 놔야겠지요.

 

아무리 검색해도 오빠두에는 VBA 프로시저가 없는거 같습니다.

고수님들게 도움을 요청합니다.

전체 2

  • 2021-01-23 13:59

    코드에 대한 설명은 주석으로 달아놨습니다.

    똑같은 경로에 똑같은 이름을 가진 파일이 없기에 실행할때 아마 오류가 뜰 것입니다.

    첨부파일 : 통합-문서1.xlsm


  • 2021-01-23 19:36

    안녕하세요.

    아래 명령문을 확인해보세요.

    Sub CopySheet(fromWS, Optional toWB As String = "")
    
    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '수정 및 배포 시 출처를 반드시 명시해야 합니다.
     
    '■ CopySheet 함수
    '■ 현재 통합문서의 시트를 지정한 통합문서로 복사합니다.
    '■ 사용방법
    'CopySheet "시트명", "통합문서명"
    '▶ 인수 설명
    '_____________fromWS        : 복사할 시트입니다. 시트명을 문자열로 지정하거나 시트개체를 직접 지정할 수 있습니다.
    '_____________toWB            : [선택인수] 시트를 붙여넣기 할 통합문서의 이름입니다. 빈칸일 경우 새로운 통합문서에 붙여넣기 합니다.
    '###############################################################
    
    Dim WB As Workbook
    Dim cWS As Worksheet: Dim fWS As Worksheet
    Dim i As Long: i = 1
    
    If Not IsObject(fromWS) Then
        Set fWS = ActiveWorkbook.Worksheets(fromWS)
    Else
        fWS = fromWS
    End If
    
    If toWB = "" Then
        Set WB = Application.Workbooks.Add
    Else
        Set WB = Application.Workbooks(toWB)
    End If
    
    Application.DisplayAlerts = False
    
    If WB.Worksheets.Count = 1 Then WB.Worksheets.Add
    For Each cWS In WB.Worksheets
        If cWS.Name = fWS.Name Then
            cWS.Delete: i = i + 1: Exit For
        End If
    Next
    
    Application.DisplayAlerts = True
    
    fWS.Copy WB.Worksheets(i - 1)
    
    End Sub

     

     


전체 2,488
번호 카테고리 제목 작성자 작성일 추천 조회
2479 VBA
New VBA 질문
M5 | 02:57 | 추천 0 | 조회 2
M5 02:57 0 2
2478 기능/도구
New DuTool 설치시 오류 문의드립니다.
반짝반짝 | 2021.03.04 | 추천 0 | 조회 5
반짝반짝 2021.03.04 0 5
2477 VBA
New 네이버부동산 크롤링
웃음 | 2021.03.04 | 추천 0 | 조회 8
웃음 2021.03.04 0 8
2476 함수/공식
New small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다. 첨부파일 (1)
솔솔 | 2021.03.04 | 추천 0 | 조회 14
솔솔 2021.03.04 0 14
2475 함수/공식
New 조건이 있는 중복된 값들의 개수 셀수 있을까요? (1)
dasdas | 2021.03.04 | 추천 1 | 조회 20
dasdas 2021.03.04 1 20
2474 VBA
New 같은이름 다른파일의 데이터 복사 붙이기 첨부파일
H.B | 2021.03.04 | 추천 1 | 조회 20
H.B 2021.03.04 1 20
2473 파워쿼리/피벗
New 파워쿼리 편집기 날짜 및 시간 (10진수) 2 첨부파일 (1)
JaeChoi | 2021.03.04 | 추천 0 | 조회 23
JaeChoi 2021.03.04 0 23
2472 함수/공식
New 9.4512E+15 식으로 발생되는 건들에 대하여 어떻게 하면 정상적으로 숫자가 나올까요? (3)
mo**** | 2021.03.04 | 추천 0 | 조회 32
mo**** 2021.03.04 0 32
2471 함수/공식
New 중복된걸 제외하고 셀수 있는 방법이 있어까요? (2)
dasdas | 2021.03.04 | 추천 0 | 조회 34
dasdas 2021.03.04 0 34
2470 VBA
New 에러가 생기면 코드 실행을 멈추고 싶은데 어떡하면 좋을까요? (1)
cyi | 2021.03.04 | 추천 0 | 조회 17
cyi 2021.03.04 0 17
2469 문서서식
New 엑셀 표를 PPT로 불러왔을때 선 굵기 관련 건 (1)
운영자동차 | 2021.03.04 | 추천 0 | 조회 22
운영자동차 2021.03.04 0 22
2468 VBA
New 아웃룩 첨부파일 저장 시 파일제목 (1)
KDHkm | 2021.03.04 | 추천 0 | 조회 11
KDHkm 2021.03.04 0 11
2467 VBA
New 혹시 2007에서 2010과 같은 스크린샷 vba는 없나여? (1)
손님 | 2021.03.04 | 추천 0 | 조회 16
손님 2021.03.04 0 16
2466 함수/공식
New 두가지 DATA를 비교하여 없는 값 불러오기 첨부파일
Jeff | 2021.03.04 | 추천 0 | 조회 29
Jeff 2021.03.04 0 29
2465 차트/그래프
New 간트에서 선행업무와 연결하는 방법 (1)
라이언 | 2021.03.04 | 추천 0 | 조회 18
라이언 2021.03.04 0 18
2464 함수/공식
New xFilter 함수 기능 설치 (1)
서강국 Noah | 2021.03.04 | 추천 0 | 조회 15
서강국 Noah 2021.03.04 0 15
2463 VBA
New [VBA] 고유값을 순번이 아닌 특정한 값으로 사용하는 방법이 궁금합니다. (1)
u*** | 2021.03.04 | 추천 0 | 조회 14
u*** 2021.03.04 0 14
2462 문서서식
New 출퇴근명부만들기_요일에 색깔넣기 오류_질문입니다. 첨부파일 (4)
반짝반짝 | 2021.03.04 | 추천 0 | 조회 31
반짝반짝 2021.03.04 0 31
2461 함수/공식
New 하이퍼링크로 셀 이동하기 관련 질문.
푸른나래 | 2021.03.03 | 추천 0 | 조회 25
푸른나래 2021.03.03 0 25
2460 기능/도구
New 같은 파일 같은 시트에 있는 많은 데이터를 10개 씩 묶어서 저장하는 방법이 있나요? (1)
이경호 | 2021.03.03 | 추천 0 | 조회 14
이경호 2021.03.03 0 14
2459 대시보드
New 대시보드 인쇄문제 (1)
skyblue**** | 2021.03.03 | 추천 0 | 조회 17
skyblue**** 2021.03.03 0 17
2458 기능/도구
New 직원들간 업무 공유가 가능한가요? (4) 답변완료
건평 | 2021.03.03 | 추천 0 | 조회 39
건평 2021.03.03 0 39
2457 파워쿼리/피벗
New 쿼리,피벗 기본 서식을 변경할 수 있나요? (1)
Kampi Krein | 2021.03.03 | 추천 0 | 조회 23
Kampi Krein 2021.03.03 0 23
2456 피벗테이블
New 엑셀 정리 관련 질문 첨부파일 (1)
hashm**** | 2021.03.03 | 추천 0 | 조회 37
hashm**** 2021.03.03 0 37
2455 함수/공식
New [수식] 간단한 수식관련 질문인데요. (1) 답변완료
가람 | 2021.03.03 | 추천 0 | 조회 38
가람 2021.03.03 0 38
2454 함수/공식
New 자동으로 범위를 지정하여 합계 구하는 공식 첨부파일 (1)
벗님들 | 2021.03.03 | 추천 0 | 조회 33
벗님들 2021.03.03 0 33
2453 함수/공식
New [정말 급합니다 ㅠㅠ] 리스트 클릭 시 상세 내역이 보였으면 합니다. 첨부파일 (2) 답변완료
박이안 | 2021.03.03 | 추천 1 | 조회 70
박이안 2021.03.03 1 70
2452 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2)
excel009 | 2021.03.03 | 추천 0 | 조회 39
excel009 2021.03.03 0 39
2451 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2) 답변완료
excel009 | 2021.03.03 | 추천 0 | 조회 52
excel009 2021.03.03 0 52
2450 함수/공식
New SUMPRODUCT/OFFSET 관련 문제 첨부파일 (2)
슬리드 | 2021.03.03 | 추천 0 | 조회 42
슬리드 2021.03.03 0 42