ExcelのVBAコードについて、知恵をお貸しください。

Visual Basic52閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

ThanksImg質問者からのお礼コメント

お二方ともご回答ありがとうございました。大変感謝しております。 先に回答いただいた関数は苦手さんをベストアンサーに選ばせていただきます。

お礼日時:10/19 21:16

その他の回答(1件)

0

'①は開いているから名前の変更ができないと思います。 '②はファイル名が2021.10に変わった後、Killしようとしているファイルは、2021.10.xlsm 'つまり今開いているファイル(自分自身)を消そうとしているからエラーになると思います。 'なのでこうします。 Sub a() Dim y As Long Dim m As Long Dim c As String Dim oldBookName As String oldBookName = ThisWorkbook.Name y = Format(Now, "yyyy") m = Format(Now, "m") c = y & "." & m ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & c & ".xlsm" Kill ThisWorkbook.Path & "\" & oldBookName End Sub