質問: false then msgbox "保存は中止されました。" activeworkbook.close (false) else activeworkbook.savecopyas 保存ファイル名 activeworkbook.close (false) end if end sub よろしくお願いします。
回答: とりあえず(1)について回答します。 getsaveasfilenameメソッドでフォルダの位置を指定するには カレントディレクトリの変更 という作業が必要になります chdrive ディレクトリパス 'ドライブのチェンジ chdir ディレクトリパス 'ディレクトリのチェンジ をgetsaveasfilename以前に記述してください。 ただし・・・chdriveステートメントはネットワークドライブ(\\~)を指定された場合、ドライブの移動ができません。 このマクロを使用する上でそのようなシチュエーションが考えられる場合、win32 apiのsetcurrentdirectory関数を利用することになります。 以上です。