ファイル名一括変更（置き換え）マクロについて

よろしくお願いいたします。
同じホルダ内に下記のようなファイル名で３０程保存ファイルがあります。
２８年度Ａ店、 ２８年度Ｂ店、 ２８年度Ｃ店、 ２８年度Ｄ店、 ・・・・・・
２９年度Ａ店、 ２９年度Ｂ店、 ２９年度Ｃ店、 ２９年度Ｄ店、 ・・・・・・
集計ファイルが昨年度、今年度でマクロを組んでいる関係で、毎月集計の都度ファイル名を変更していますので、できればマクロを使って一括変更（置き換え）が出来ないかと思っています。
それで、毎年度使用できるように、例えばセルＣ５に２８年度、セルＣ６に２９年度と入力し、保存ファイル名の一部がセルＣ５と同じ部分を昨年度に、セルＣ６と同じ部分は今年度に保存ファイル名を下記のように変更（置き換え）するようなマクロを希望しています。
昨年度Ａ店、 昨年度Ｂ店、 昨年度Ｃ店、 昨年度Ｄ店、 ・・・・・・
今年度Ａ店、 今年度Ｂ店、 今年度Ｃ店、 今年度Ｄ店、 ・・・・・・
このような保存ファイル名の変更（置き換え）は可能でしょうか？。
どなたか、よろしくお願いいたします。

質問者からの補足コメント

• 

  ご教示、ありがとうございます。
  ホルダは常にデスクトップ上に置いており、ホルダ名は「各店集計」ですが
  For Each OldName In FSO.GetFolder("D:\各店集計").Files
  の部分が黄色になり　実行時エラー”７６”　パスがみつかりません　となり中断してしまいます。
  何処が悪いのでしょうか、よろしくお願いいたします。

  No.3の回答に寄せられた補足コメントです。 補足日時：2018/01/07 11:42

No.5 ベストアンサー 回答者： めぐみん_ 回答日時： 2018/01/07 12:50

＞実行時エラー”７６”　パスがみつかりません　となり中断してしまいます。

まず "D:\test" これはDドライブにあるtestと言うフォルダを指す物ですが、デスクトップはCドライブなので、そもそもの保存されている場所が違いますね。
あとデスクトップは特殊フォルダ
・特殊フォルダを取得（wsh.SpecialFolders）
http://excelwork.info/excel/specialfolder/
になりますね。

取り敢えず修正版。

Sub test_2()
Dim FSO As Object
Dim OldName
Dim PathName As String

Set FSO = CreateObject("Scripting.FileSystemObject")
PathName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\各店集計"

For Each OldName In FSO.GetFolder(PathName).Files
If IsNumeric(StrConv(Left(OldName.Name, 1), vbNarrow)) Then

Select Case True
Case InStr(OldName, Range("C5").Value) > 0
Name OldName As Replace(OldName, Range("C5").Value, "昨年度")
Case InStr(OldName, Range("C6").Value) > 0
Name OldName As Replace(OldName, Range("C6").Value, "今年度")
End Select

End If
Next

Set FSO = Nothing
End Sub

ついでです。

Sub xyz()

'もし興味があればデスクトップフォルダがどのように表示されるか
'見てみて下さい。
MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")

End Sub

この回答へのお礼

めぐみん様
早速のご教示ありがとうございました。
期待どおりにファイル名の変更がされました。
早速活用させていただきます。
仕事の時間がかなり短縮できます。
本当にありがとうございました。

お礼日時：2018/01/07 13:51

No.4 回答者： めぐみん_ 回答日時： 2018/01/07 06:09

No.3です。

＞For Each OldName In FSO.GetFolder("D:\test").Files

ここの "D:\test" はそちらの実際のフォルダ名に修正して下さい。

No.3 回答者： めぐみん_ 回答日時： 2018/01/07 06:07

一例になれば。

Sub test()
Dim FSO As Object
Dim OldName
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each OldName In FSO.GetFolder("D:\test").Files
If IsNumeric(StrConv(Left(OldName.Name, 1), vbNarrow)) Then

Select Case True
Case InStr(OldName, Range("C5").Value) > 0
Name OldName As Replace(OldName, Range("C5").Value, "昨年度")
Case InStr(OldName, Range("C6").Value) > 0
Name OldName As Replace(OldName, Range("C6").Value, "今年度")
End Select

End If
Next

Set FSO = Nothing
End Sub

No.2 回答者： めぐみん_ 回答日時： 2018/01/06 20:05

No.1です。

あ、両方ともセルに打ち込むのですね。
ならNo.1は無視して下さい。

No.1 回答者： めぐみん_ 回答日時： 2018/01/06 20:03

『年度』の定義が必要でしょうね。

４月１日～翌年３月３１日を『年度』と言う会社とかありますしね。
単純に１月１日～１２月３１日とカレンダーそのものと同じなのかどうかと、元号の変更に伴うであろう年数のリセットについても。
（西暦ならそのままでしょうけど）