| 
    
     |  | ▼β さん: >▼北風 さん:
 >
 >保存フォルダ、保存ファイル名は決まっているのですから ダイアログボックスを開く必要はなく
 >直接保存すればいいのですが?
 >
 >それとも、保存フォルダも保存ブック名もダイアログ上で変更したいということですか?
 >
 >それと、拡張子が xls ですから、実行環境は xl2003以前ということですね?
 >
 >あと、SaveAs は、今開かれている、このマクロブックを名前をつけて保存します。
 >実行後、エクセル画面には元のマクロブックは残っていません。
 >新しく作られたブックが残っています。
 >
 >一方、SaveCopyAs というのがあります。
 >これは、マクロブックはそのままで、『裏で』新しい名前のブックを作成保存します。
 >この場合、新しいブックはエクセル画面上には登場しません。
 >
 >どちらがご希望ですか?
 >
 >それと、質問とは関係ないことですけど、If fs = False Then End
 >
 >これでも不具合は発生しませんが
 >
 >If fs = False Then Exit Sub
 >
 >こうしておいたほうがいいですよ。
 >今回のコードでは全く同じなんですが、今後、複雑な構成のマクロを組み立てていくときに
 >End ステートメント を使っていると、保守フェーズで苦労しそうですから。
 
 
 βさん何時もありがとうございます。
 ダイアログボックスを開く必要はなく、直接保存の方法でお願いいたします。
 また、貴重なご指摘も有難うございます。
 
 |  |