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

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

No.1 ベストアンサー 回答者： x0000x 回答日時： 2007/06/14 22:11

こんばんは。

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

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

この回答へのお礼

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

お礼日時：2007/06/14 22:53

No.2 回答者： noname#97729 回答日時： 2007/06/14 22:21

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

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

http://www.vector.co.jp/soft/win95/business/se30 …

この回答へのお礼

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

お礼日時：2007/07/02 19:12