質問: false then msgbox "保存は中止されました。" else with thisworkbook.activesheet workbooks.add .cells.copy activesheet.range("a1") activeworkbook.saveas 保存ファイル名, xlnormal activeworkbook.close false end with sheets("報告書").select range("a1").select msgbox "報告書を作成しました。" end if end sub ----------------------------------------------------
回答: こんにちは。 提案1 他の不要のシートが必要ない場合。 with thisworkbook.activesheet .copy activeworkbook.saveas 保存ファイル名, xlnormal activeworkbook.close false end with 提案2 pastespecial を使う方法。 with thisworkbook.activesheet workbooks.add .cells.copy activesheet.cells.pastespecial activesheet.cells(1, 1).select activeworkbook.saveas 保存ファイル名, xlnormal activeworkbook.close false end with application.cutcopymode = false '必要に応じて