EXCELのシートのマクロ操作について

質問

EXCELについて質問がありまして、よろしくお願いします。

複数のシートがあるブックがあり、それを、それぞれシートごとに別のブックにしたいと思っています。

マクロやVBAなどを使って簡単に出来るものでしょうか？

マクロ集などのサイトを探してみましたが、上手く見つけることができませんでした。

シート名をブック名として引き継いで保存できればベターだと思っております。それが出来なくてもブックとして起こせれば大丈夫です。

何かわかられましたらお教えいただけますと幸いです。
どうぞよろしくお願いします。

回答No.1

n-jun · ベストアンサー

一例です。

Sub try()
Dim ws As Worksheet
Dim P_name As String

P_name = ThisWorkbook.Path

For Each ws In ThisWorkbook.Worksheets

ws.Copy
ActiveWorkbook.Close True, P_name & "\" & ws.Name & ".xls"

Next
End Sub

お礼

ありがとうございます！
このVBAで出来ました！
非常に助かりました！