인덱스가있는 시트를 새 통합 문서로 복사

Question

이 코드를 사용하여 시트 (i)를 새 통합 문서로 복사하지만 항상 ActiveWorkbook.Sheets(i).Copy에서 오류가 발생합니다. 특정 시트 (예 : sheets("Handover"))를 사용하면 코드가 실행됩니다. 나에게 '당신이 3 개 이상의 워크 시트가 가정 잘못

Sub CopyToNew() 
    'Copy the sheets(i) to a new Workbook. 
    For i = 3 To ActiveWorkbook.Sheets.Count 
     ActiveWorkbook.Sheets(i).Copy 
     Next 
    End Sub 

Answer 1

을이야 무엇인지 설명 도와주세요, 어떻게 일어나는 것은 당신이 ActiveWorkbook.Sheets(i).Copy을 처음으로, 새로 만든 통합 문서는 하나의 워크 시트는 ActiveWorkbook이되는 것입니다.

이 예외가 발생하지 않게하려면 코드에서 ActiveWorkbook을 ThisWorkbook으로 바꿉니다.

또한 숨겨진 시트이 통합 문서에 있는지 확인하십시오. Copy 메서드는 숨겨진 워크 시트에서 실패합니다.