質問: シートをコピーして別ブックに名前をつけて保存するプログラム組んだのですが 画像ファイルがあるとエラー シートをコピーして別ブックに名前をつけて保存するプログラム組んだのですが 画像ファイルがあるとエラーコード1004が発生し保存できません 解決策何かあるでしょうか 保存コード下記 sheet(array("チェックリスト”,"チェックリスト画像”)).select sheet(array("チェックリスト”,"チェックリスト画像”)).copy a=worksheets("チェックリスト").range("b6").value myfile="c:¥成績書保存フォルダ¥” & a & "チェックリスト” & ”.xlsx set xsheet=activesheet application.displayalerts=false activeworkbook.save filename:=myfile application.displayalerts=ture
回答: とりあえず、以下のようなことでしょうか?sub test() dim ファイル名 as string ファイル名 = sheets("チェックリスト").range("b6").value ファイル名 = "c:\成績書保存フォルダ\" & ファイル名 & "チェックリスト" & ".xlsx" sheets(array("チェックリスト", "チェックリスト画像")).select sheets(array("チェックリスト", "チェックリスト画像")).copy application.displayalerts = false activeworkbook.saveas filename:=ファイル名, fileformat:=51 activewindow.close application.displayalerts = true end sub※ コピーしたファイルは閉じていますが、閉じたくなければ「activewindow.close」を削除してください。