런타임 오류 9

Question

VBA에 매크로를 쓰고 있습니다. 이 매크로는 명령을 바꿀 때까지 제대로 작동하고 있었고 이제는 "런타임 오류 9"가 표시됩니다. 인터넷에서 광범위하게 검색 한 후 느슨하게 끝났습니다. 시트 이름이 동일하고 시트가 여전히 존재하며 올바른 통합 문서를 참조하고 있는지 확인했습니다. 아무도 왜이 오류가 표시되는지 말할 수 있습니까?

Sub CopyStuff() 

Sheets("DR1 -TC-001").Select 
Range("C2:P23").Select 
'this is the cell range 
Selection.Copy 

With ActiveWorkbook Sheets.Add 
Range("C2:P23").Select 
Selection.Paste = wkb2 

End Sub 

Answer 1

코드는이없는 일부 기간입니다 함께 끝으로 문으로 에 에러 실행됩니다.

코드 수정을 시도하십시오.

Sub CopyStuff() 

Workbooks("With_data.xlsx").Activate 
    'Activate the workbook that contains the data you want to copy  
Sheets("DR1 -TC-001").Range("C2:P23").Copy 
    'Copy a range 

ActiveWindow.ActivatePrevious 
    'Revert to the previous new workbook 

With ActiveWorkbook 
    .Sheets.Add 
    .ActiveSheet.Range("C2:P23").PasteSpecial Paste:=xlPasteAll 
End With 
    'Add a sheet and paste the copied range 

Application.CutCopyMode = False 
    'Clear the clipboard 

End Sub