엑셀 시트별 파일분리 저장 스크립트

시트를 파일로 분리!

 

엑셀창에서 Alt-F11 누르시고 VBA 창이 나타나면 삽입-모듈 하시고 아래 코드를 붙여넣으세요.

 

코드 가운데 커서를 두시고 F5 를 누르시면 시트를 같은 폴더내 파일로 저장합니다.

 

Sub toFile()

Dim tR As Range
Dim tmp As String
For i = 1 To Sheets.Count
    Sheets(i).Select
    tmp = ActiveSheet.Name
  
    Set tR = ActiveSheet.Cells
    tR.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False ← 이라인 삭제(내경우)
    Cells.EntireColumn.AutoFit
    Application.DisplayAlert!s = False ← 이라인 삭제(내경우)
    ActiveWorkbook.SaveAs tmp & ".xls"  ← xlsx가 에러가 없었음 (내경우)
    Application.DisplayAlert!s = True
    ActiveWindow.Close
Next i

End Sub

두번째 스크립트

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 strPath & Sht.Name & ".xls"
 Next Sht
  ActiveWindow.Close
  Application.ScreenUpdating = True
End Sub