Excel2007 VBAでファイルの保存方法？

質問

Ｅｘｃｅｌ２００７マクロにて、
ＡＡ1　というファイルで一定の処理後に、バックアップ用に、　ＡＡ2　と　2011ＡＡ　ＡＡ1　という３つのファイルをカレントドライブに自動的に保存できるようなマクロを作りたい。

１．　自動記入(？)マクロで作成するも、ディレクトリが自動的に書き込まれるため、他のパソコンで操作するとエラーとなってしまうため、現在立ち上げているカレントドライブに保存できるようにしたい。

２．なお、保存順序は、　ＡＡ2　2011ＡＡ　ＡＡ1　の順として、ＡＡ1　が最後に残るようにしたいです。
(またさらに、出来るものであれば　ＡＡ2とＡＡ1の保存の際は、上書き確認なしに自動的に保存できるようにしたいです。)

以上をやりたいのですが、初心者でよくわかりません。
教えて下さい。

回答No.2

keithin · ベストアンサー

＞現在立ち上げているカレントドライブに保存できるようにしたい。

言葉通りに受け取るなら，指定のドライブのどこのフォルダに保存したいのか説明不足です。よもやルートにほっぽり出してイイというワケじゃないでしょ？
マクロ実行時点でのカレントフォルダ(CurDir　通常考えられる作業の流れでは，ＡＡ1が保存されていたフォルダ)に保存したいと言いたかったのであれば，簡単に自動処理できます。

sub macro1()
workbooks("ＡＡ1.xlsm").savecopyas "ＡＡ2.xlsm"
workbooks("ＡＡ1.xlsm").savecopyas "2011ＡＡ.xlsm"
workbooks("ＡＡ1.xlsm").save
end sub

＃ご相談で明記されていないファイルの保存形式(拡張子)や，ご質問で問われていない保存したいファイル名の自動生成などについては，ご自分で工夫するなり，出来なければまた「別に」ご質問を投稿してみて下さい。

お礼

早速にありがとうございました。
おかげさまで、難問が解決できました。

質問の仕方もわからず、申し訳ありませんでした。
あなた様がお察しの通り、ＡＡ1 が保存されていたフォルダに保存したかったのです。

あなた様に、お教え頂いたマクロを入力し、思い通りに処理することが出来るようになりました。
おかげさまで、ほぼ完成に至ることが出来ました。
ありがとうございました。

回答No.1

FEX2053

カレントドライブに保存するなら、SaveAsコマンドの引数のC:\以下のフォルダ指定部分を全部消して、ブック名だけで保存するようにすれば、カレントドライブに勝手に保存されますよ。

お礼

早速にありがとうございました。

当方初心者なもので、お教え頂いた方法をやってみましたが、うまく行きませんでした。
少し時間をおいて、再度勉強をしたいと思っています。

貴重な知識と時間を、ありがとうございました。