質問: false」 ここまでは順当に動いています。 質問は アクティブになった新しいブックを保存したいです。 一行から二行目にかけて設定しているファイルネームを、 メッセージボックスを表示させてそこに入力した文字列 をファイルネームとして(現在****)保存したいのですが。 activeworkbook.saveas filename:= _ "**********.xls", fileformat:= _ xlnormal, password:="", writerespassword:="", readonlyrecommended:=false _ , createbackup:=false どなたかよろしくお願いします。
回答: 後半をこんなふうにして下さい。 activeworkbook.saveas filename:= _ inputbox("保存するファイル名を入力してください") & ".xls", fileformat:= _ xlnormal, password:="", writerespassword:="", readonlyrecommended:=false _ , createbackup:=false とりあえずこれで動くはずです。 もし保存場所を選択する必要があるようでしたら別の回答をお待ちください。