통합 문서로 시트를 복사하는 매크로

Question

계산 속도가 빨라지는 통합 문서가 있습니다. (긴 이야기) 시트 중 세 개를 다른 파일로 복사 한 다음 다른 매크로를 복사하여 다시 복사합니다.

복사 할 매크로가 제대로 작동하지만 한 장에 복사 한 후 복사 할 매크로가 멈 춥니 다.

StackOverflow에서 검색 한 결과 비슷한 질문이 있지만 제대로 된 답변을 찾지 못했습니다. 한 게시물은 Office 버전과 관련이 있고 Shift 키 문제가 하나라고 생각했습니다. 여기

코드입니다 :

Application.Calculation = xlCalculateManual 
Application.ScreenUpdating = False 
Application.DisplayAlerts = True 
Application.EnableEvents = False 

' 
' Set up the workbooks 
' 
Set ThisWkb = ThisWorkbook 
Fname = Application.GetOpenFilename(_ 
    fileFilter:="Excel Macro Files, *.xlsm", _ 
    Title:="Select the Storage File", _ 
    MultiSelect:=False) 
Set StorageWbk = Workbooks.Open(Fname) 
' 
MsgBox ("Beginning process - please click ok to any macro warning - you will see a confirmation when complete") 


StorageWbk.Sheets("Sh A").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) 
StorageWbk.Sheets("Sh B").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) 
StorageWbk.Sheets("Sh C").Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count) 

StorageWbk.Close 

가끔 내가 다시 매크로를 새로운 시트를 삭제하고 실행하는 경우가 가끔 작동하고있는 세 가지 시트를 읽는 것을 발견하지만, 그것은 또한 때때로하지 않습니다.

도움을 주시면 대단히 감사하겠습니다. 당신의 숨겨진 시트를보고 숨기기를 해제 할

을 한 번 사용에 세 개의 링크를 복사 : 바로 여기 코멘트에서 정답을 제공하기 위해 nbayly YowE3K 모두를 인용

Answer 1

(나는 그것을 지켜 볼 수밖에 없었습니다)

StorageWbk.Sheets(Array("Sh A", "Sh B", "Sh C")).Copy After:=ThisWkb.Sheets(ThisWkb.Sheets.Count)