[엑셀VBA] 워크북의 여러 시트중 특정 시트만 새 워크북 만들기

Sub ADD_Selected_Sheets() '보고용 문서 만들기 Dim ws As Worksheet Dim cs As Worksheet Dim arrSht '선택된 각 시트를 넣을 배열형 변수 arrSht = Array("PC현황", "프린터", "AXIS", "PC이력") '시트를 배열에 넣음 ActiveWorkbook.Sheets(arrSht).Copy '배열의 시트를 새로운 워크북에 넣음 Set cs = ActiveSheet '수식의 값만을 취한다. For Each ws In ActiveWorkbook.Worksheets ws.Activate With Cells .Copy .PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=False, Transpose:=False End With Application.Goto reference:=[A1] Next ws With Application .CutCopyMode = False .ScreenUpdating = True End With cs.Activate '수식의 값취하기 끝 '새 문서에 저장한다. ActiveWorkbook.SaveAs Filename:="D:\보고용 문서\" & "PC현황" & ".xls" ActiveWorkbook.Close '새 문서 작성을 위해 열었던 문서를 닫는다. End Sub

arrSht = Array("PC현황", "프린터", "AXIS", "PC이력") 에서 Sheet 이름 대신 Sheet 번호를 넣어도 되며 Sheet 이름과 번호를 혼용하여 사용 할 수 있다.

예)arrSht = Array(2, "프린터", "AXIS", 4, 10)

실행결과는 수식의 결과 값과 시트서식을 복사하여 새 파일로 만든다.