エクセルで各シート毎にブックに分割したい

質問

エクセルの１つのブックに複数の名前がついたシートがあり、その各シート毎にシート名のブックに分割したいのです。
シートが少なければ手作業で分割するのですが、100枚近くのシートがあるので、できればマクロで一括処理できれば助かるのですが。
過去ログで複数のブックのシートを一つのブックにまとめる事例がありましたので、その逆もできると思うのですが。
よろしくお願いします。

回答No.1

x0000x · ベストアンサー

こんばんは。

こんな感じで如何でしょうか？

Sub splitBook()

Const path As String = "C:\" '\まで記述

Dim bk As Workbook
Set bk = ActiveWorkbook

Dim st As Worksheet
For Each st In bk.Sheets

Workbooks.Add
st.Copy Before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.SaveAs path & st.Name & ".xls"
ActiveWorkbook.Close

Next

End Sub

お礼

これで完璧です
しかしよくこんな簡潔なコードで出来るものですね
自分でも書けるように勉強します
ありがとうございました

回答No.2

noname#97729

このようなのはどうです。

http://www.vector.co.jp/soft/win95/util/se302063.html

http://www.vector.co.jp/soft/win95/business/se302103.html

お礼

お礼が大変遅くなってすみません
残念ながら、↑のサイトは会社でブロックされて見る事が出来ません
↓の方で解決つきました。
ありがとうございました