人に聞けない痔の悩み、これでスッキリ >>

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

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


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

よろしくお願いします。

「ファイル名の作成について 写真のように複」の質問画像

A 回答 (1件)

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


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

'//
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
    • good
    • 0
この回答へのお礼

ありがとうございます。

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング