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

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

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

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

안녕하세요.

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

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