|
こんちには。かみちゃん です。
>かみちゃんさんの内容についてですが、今回の質問内容は、「集計表:3月分」ということでしたが、毎月、保存するわけなので、例えば、INPUTBOXやユーザーフォームなどを使って、月を登録し、最終的にファイル名が「集計表:4月分」や「集計表:12月分」といった形にできるものでしょうか?
とりあえず、InputBox関数を使った例です。
ユーザーフォームでも、同じようなことはできます。
>> '別のブック名(「集計表:○月分」)で保存
>> Target_BookName = "集計表:3月分"
↑の部分を
Target_BookName = "集計:" & InputBox("月を指定してください。", "月指定", Format(Date, "m")) & "月分"
とすれば、
Target_BookNameに「集計:05月分」などと設定されます。
なお、Asakiさんのコードでも以下のようにすれば、できると思います。
Target_BookName = "集計:" & InputBox("月を指定してください。", "月指定", Format(Date, "m")) & "月分"
ThisWorkbook.SaveCopyAs Target_BookName
|
|