ブックのＣＯＰＹ

いつもお世話になっております

Ｂというブックを開いて
標準モジュールで下記のコードを実行すると
今、開いているＢのワークブックが
Ａというファイルに変更になってしまいます。

Bのワークブックの名前のままで
おわることはできないのでしょうか

str = "C:\test\A"
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlCSV

No.3 ベストアンサー 回答者： fujillin 回答日時： 2023/02/25 20:35

こんばんは

SaveCopyAs メソッドを利用すると幸せになれると思います。
https://learn.microsoft.com/ja-jp/office/vba/api …

この回答へのお礼

ありがとうございました。
うまくいきました。

お礼日時：2023/02/25 21:19

No.4 回答者： ミラ-_- 回答日時： 2023/02/25 20:43

Dim str As String

str = "C:\test" & ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlCSV

上記のコードを実行すると、BのワークブックをBのまま保存しつつ、指定したパスにCSVファイルとして保存することができます。

また、別名で保存するためのオプションとして、Excel VBAには"SaveCopyAs"メソッドもあります。このメソッドを使用すると、現在開いているワークブックを別名で保存することができます。


ActiveWorkbook.SaveCopyAs "C:\test\B_copy.xlsx"

上記のコードを実行すると、Bのワークブックのコピーが、指定したパスに "B_copy.xlsx" というファイル名で保存されます。

No.2 回答者： かわごえ 回答日時： 2023/02/25 20:34

何がしたいかよく分かりません。

まず目的の操作をマクロ記録してみてください。
コード書くのはそれから

SaveCopyAs？

No.1 回答者： かわごえ 回答日時： 2023/02/25 20:21

str = "C:\test\B"

でよろしいのでは

この回答へのお礼

今、開いているブックがＢで
Ａという名前をつけて指定したフォルダの
中にいれます。
もしstr = "C:\test\B"だとすると
Ｂという名前で保存されてしまいます。

お礼日時：2023/02/25 20:26