vbaの保存について質問があります

Question

ActiveWorkbook.SaveAs Filename:=ファイル を使用すればファイルの保存ができました。
しかしこれをすると開いているファイルの位置が上記で指定した位置に変わってしまいます。

イメージで話しますと、保存元のブックをそのまま残し、今の状態をコピーし、別ブックにコピーといったことをしたいです。

どうすればファイルの位置を変えずにコピーさせることができるでしょうか？

うまく説明できなく申し訳ございません。

Answer 1

つまり、保存元ブックと同じ場所に、別名保存ができればよいイメージでしょうか？

保存元ブックの場所をフルパスで取得し、新しいファイル名を付加して、Failenam:= に与えれば、以上のことはできます。

ActiveWorkbook.SaveAs Filename:= ActiveWorkbook.Path & "" & 新しいファイル名

Answer 2

SaveAsで「別の名前を付けて保存」はできているはずです．
開いているファイルの位置が変わるのは，今開いているブックの参照先がSaveAs実行後に変わっているだけで，元のファイルは問題なく残っているはずだと思われますが，確認しましたでしょうか．

Answer 3

単純に

ActiveWorkbook.SaveCopyAs filename:="***"

で目的を達成できないでしょうか？

Answer 4

保存元のブックをそのまま残し、今の状態をコピーし、別ブックにコピー

とのことですが…

「保存元のブックをそのまま残し」というのは、修正前の状態を保持するという意味ではないのですよね？
つまり、言い換えると、元のファイルは常に最新の状態を維持し、修正途上の任意の時点を随時別名で保存したいという要件だと理解したのですが、認識合っていますか？

【イメージ】
オリジナル A → A’ → A'' → A'''
↓ ↓
編集途上の別名保存 B C

もしそのような仕様でよければ、下記の手順で「ファイルの位置を変えずにコピー」できると思います。

1. ThisWorkbook.Save で自身（A）を上書き保存する
2. FileSystemObjectオブジェクト の CopyFileメソッド などを使用し、更新されたAを別名B、C…へコピーする

Answer 5

Aというファイルを編集中にＢという名前で保存し、そのままＡというファイルの編集を続けたいと言うことでしょうか？
多分無理だと思います。

Ｂという名前で保存した後、再度Ａを開いてＢを閉じるとか、
新規ファイルを作ってシートをそっちにコピーしてそれをＢとして保存するとかでしょうか。

追記：
出来ますね。
Bという名前で保存した後に、もう一度Aの名前で保存すれば良いんだ！