Sub Sample_SaveCopyAs() Dim OpenBook As String Dim CopyBook As String Dim w As Workbook Dim Result, Prompt, Buttons, Title 'コピー元のブック名 OpenBook = "C:\Documents\test01.xlsx" '保存するブック名 CopyBook = "C:\Documents\mybook.xlsx" 'コピー元ブックを開く Set w = Workbooks.Open(OpenBook) '同名のブックが存在する時の処理 If Dir(CopyBook) <> "" Then 'メッセージボックス表示 Prompt = "同名ファイルが存在します。" & Chr(13) & "上書きしますか?" Buttons = vbYesNo + vbInforma
![ブックのコピーを保存(SaveCopyAs メソッド)](https://cdn-ak-scissors.b.st-hatena.com/image/square/56f8d413405ef1e7d57b79e6c042621f120232bc/height=288;version=1;width=512/https%3A%2F%2Fi0.wp.com%2Fexcelwork.info%2Fexcel%2Fwp%2Fwp-content%2Fuploads%2F2015%2F11%2Fbooksavecopyas00.jpg%3Ffit%3D356%252C298%26ssl%3D1)