Sheet 하나 하나를 엑셀 파일로 생성시키는 방법

엑셀에서 ALT+F11 키를 누른 뒤
삽입 - 모듈을 선택하신 뒤
이 내용을 붙여넣기 하시면 됩니다.

---

Sub dhTest()
Dim wb As Workbook
Dim wbTemp As Workbook
Dim s As Worksheet
Dim strPath As String
Dim strFile As String
Const cTag As String = ".xls"
'작업할 통합문서입니다
Set wb = ActiveWorkbook

'경로명을 구합니다.
strPath = wb.Path
If Len(strPath) = 0 Then '저장되지 않은 문서의 경우라면
'엑셀 기본 문서 저장 경로(대개 My Documents입니다)에 저장합니다
strPath = Application.DefaultFilePath
Else
End If
strPath = strPath & Application.PathSeparator

For Each s In wb.Worksheets
'현재 시트의 이름으로 파일을 저장하도록 이름을
'변수에 담습니다.
strFile = strPath & s.Name & cTag
'새문서로 파일을 내 보냅니다, 즉 새로 만듭니다.
If s.Visible = True Then
s.Copy
Set wb = ActiveWorkbook
wb.SaveAs strFile '저장하고
wb.Close '닫습니다
Else
End If
Next s

End Sub


그리고 F5 키를 한번 누르고 난 뒤
조금 기다렸다가 확인 버튼만 눌러 주시면 됩니다.

---

worksheets("시트1").select
worksheets("시트1").move

Sub 파일시트모두내보내기()
Dim Sht As Worksheet
Dim ShtV As Worksheet
For Each Sht In Sheets
Sht.Select
Sht.Move
ThisWorkbook.Save
Application.Quit
Next
End Sub

---

엑셀에서 각각의 Sheet를 별도의 엑셀 파일로 저장하는 VBA 로직입니다.
엑셀에서 VBA 활용법을 아직 잘 모른 관계로 테스트는 못해봤지만
추후 유용할 것 같아서...