質問: application.getsaveasfilename(save_filename, _ filefilter:="excelファイル,*.xls,すべてのファイル,*.*") '名前を付けて保存する activeworkbook.saveas filename:= _ save_file, fileformat:=xlnormal, _ password:="mpd", writerespassword:="", readonlyrecommended:=false, _ createbackup:=false
回答: dim aa,bb aa="特定フォルダのpath" bb=sheets("企業別金額サマリ").range("a3").value & " 販売実績(5月).xls" '名前を付けて保存する activeworkbook.saveas filename:=aa & "\" & bb,password:="mpd" '「名前を付けて保存する」ダイアログボックスを表示しないでファイルを閉じる。 activeworkbook.close false