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:\02. 전산실 자료 모음\관리자 문서\보고용 문서\" & "PC현황 - " & Format(Date, "yyyy.mm.dd") & "(" & Format(Time, "AM/PM hh.mm") & ").xls"
ActiveWorkbook.Close '새 문서 작성을 위해 열었던 문서를 닫는다.
End Sub
'Office Tutorials > Excel' 카테고리의 다른 글
| [EXCEL VBA] Split를 이용한 문자열 구분자로 나누기, 사용자정의 함수(function) [펌] (0) | 2013.10.23 |
|---|---|
| [EXCEL] IFERROR - 오류 발생시 지정값으로 반환 (0) | 2013.10.22 |
| [Excel VBA] 선택열 각 행 값으로 메일 작성하기 (0) | 2013.02.13 |
| [Excel VBA] 특정시트를 새문서로 만들어 저장후 메일로 발송하기 (0) | 2013.01.03 |
| [엑셀VBA] 워크북의 여러 시트중 특정 시트만 새 워크북 만들기 (0) | 2012.04.10 |
| [엑셀VBA] 엔터 입력으로 하이퍼링크 삭제하고 다음셀(우측)로 이동하기 (0) | 2012.04.09 |
| [엑셀VBA] 하이퍼링크 제거 (휘발성) (0) | 2012.04.09 |
| [엑셀VBA] 시트의 특정부분을 복사후 다른 시트에 붙여 넣기 (0) | 2012.03.28 |