シートを別ブックとして保存する

実務では、特定のシートだけを別ブックとして保存することが多いです。

たとえば、Sheet1とSheet2があったとして。このSheet2の名前を”田中”に変え、”田中”シートだけを「田中.xlsx」として保存する。などなど…。

これまでこの作業を手作業で行っているかと思いますが、これをマクロにしてみた。

Sub Sample1()
    Dim ws As Worksheet
    Sheets("Sheet2").Name = "田中" ''1.
    Workbooks.Add ''2.
    ThisWorkbook.Sheets("田中").Copy After:=ActiveWorkbook.Sheets(Sheets.Count) ''3.
    Application.DisplayAlerts = False
    For Each ws In Sheets
       If ws.Name <> "田中" Then ws.Delete ''4.
    Next ws
    Application.DisplayAlerts = True
    ActiveWorkbook.SaveAs "D:\Work\田中.xlsx" ''5.
    ActiveWorkbook.Close
End Sub