카테고리 글 보관함: Tip n Tech

여러개의 워크시트를 워크시트의 이름으로 분할하여 저장하기

여러개의 워크시트를 하나 하나 저장해서 새로운 화일로 만들일이 있었는데, 정말 유용하게 사용한 프로시저입니다.


Sub 시트를파일로저장()
 Dim Sht As Worksheet
 Dim strPath As String
  Application.ScreenUpdating = False
    strPath = ThisWorkbook.Path & “\”
  For Each Sht In Worksheets
     Sht.Copy
      ChDir strPath
    ActiveWorkbook.SaveAs Filename:=strPath & Sht.Name & “.xls”
    ActiveWindow.Close
  Next Sht
   Application.ScreenUpdating = True
End Sub

참고 : 네이버지식인