|
こんにちは
見よう見まねでVBAを組んでいます。
今自分が作ったプログラムを走らせ 処理終了前に
・現在開いているアクティブシートのみを別フォルダに保存。(ワークシートは複数存在)
・保存するファイル名は ファイル名の後ろにシステム日付をつけたい。
・すでに同じ名前のファイルが保存先に存在する場合、「上書き保存しますか?」等のメッセージは出さずに、強制的に上書き保存
ということをしたいのです。
現在VBAのソースは ワークシートに記述しています。
ファイル名 "テストデータ.xls"
保存したいアクティブシート名 "保存データ"
保存先ファイル "D:\userAA\excelData"
保存後のファイル名 "テストデータ(システム日付)"
この条件でどうプログラムを組めばよいのか、ご教授願います。
補足ですが
シートを選択して保存する方法でも、別ブックで保存して不要なシートを削除する方法でもどちらでも構いませんが、保存したファイルには、プログラム自体は残したくなく、アクティブシートの中身だけを別ファイルとして保存したいです。
(保存したファイルを開いて、ワークシート上のコマンドボタンを押しても、何も起こらない状況にしたいということ)
保存元のファイル(テストデータ.xls)には、ファイルオープン時に、指定したファイル名と違う場合(テストデータ.xls以外のファイル名になっている場合)に、強制的にエクセルを終了するようにしています。
そういうのもなくしたいです。
どうすればよいでしょうか?
|
|