ファイル名の作成について 写真のように複写するマクロを作成しています。 その中で平成AA年度のAAに

ファイル名の作成について

写真のように複写するマクロを作成しています。
その中で平成AA年度のAAに数字を代入し毎年更新の時に1を足していくように考えています。
AAに代入する方法を教えてください。

例
平成29年度
平成30年度
平成31年度
になるようにです。

よろしくお願いします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2017/04/28 16:04

こんなふうにしてみたらどうでしょうか。

冗長なところがあるかもしれません。

'//
Sub SavingFileName()
Dim mPath As String
Dim WSH As Object
Dim FileName As String
Dim FName As String
Dim BaseName As String
Dim nums As Variant

Set WSH = CreateObject("Wscript.Shell")
mPath = WSH.SpecialFolders("Desktop") & "\"
nums = "*"
BaseName = "平成" & nums & "年度.xlsm"

FName = Dir(mPath & BaseName)
　If FName <> "" Then
　nums = Mid(FName, InStr(1, FName, "平成") + 2, 2)
　Do
　　　nums = nums + 1
　　　FileName = Replace(BaseName, "*", CStr(nums))
　Loop Until Dir(mPath & FileName) = ""
　Else
　　nums = Format$(Date, "EE")
　　FileName = Replace(BaseName, "*", nums)　　'前ファイルがない場合
　End If
　ActiveWorkbook.SaveAs mPath & FileName
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2017/05/05 17:24