⚡
CopyToNewWorkbook
自動化アクティブシートを新しいブックにコピーして保存します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： CopyToNewWorkbook を実行すると、現在のシートが新ブックに複製されます
💻 VBAコード
' CopyToNewWorkbook
' -----------------
' Macro Name: CopyToNewWorkbook
' Description: アクティブシートを新しいブックにコピーして保存します
' Parameters: なし
' Returns: なし
' Usage: CopyToNewWorkbook を実行すると、現在のシートが新ブックに複製されます
' -----------------
Sub CopyToNewWorkbook()
On Error GoTo ErrorHandler
Dim srcWs As Worksheet
Dim newWb As Workbook
Dim savePath As String
Set srcWs = ActiveSheet
srcWs.Copy
Set newWb = ActiveWorkbook
savePath = srcWs.Parent.Path & "\" & srcWs.Name & "_copy.xlsx"
newWb.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
MsgBox "新しいブックに保存しました:" & vbCrLf & savePath, vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub