ファイルの名前を一括で変更するマクロがわかりません。

既にサイトで公開されているマクロに、「特定セルの名前を呼び出し」マクロを作りたい状況です
　　
　　
「ファイル１」の「ねこ」シートのC4には　わんこ１　と入力する
「ファイル２」の「ねこ」シートのC4には　わんこ２　と入力する
※ファイル１、ファイル２はいずれもファイル名（拡張子名もあり）


「ファイル名を取得」マクロを実行すると
変更前ファイル名の一覧に
ファイル１　
ファイル２

が表示される。
　　　　　　　　　→ここまでは既存シートで可能


＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ここで、B２に　特定のシートのセルを入力できるようにする　　例：ねこ！C4　
「特定セルの名前を呼び出し」マクロを実行すると
変更後後ファイル名の一覧に
わんこ１.xlsm
わんこ２.xlsm

が表示される。※拡張子以外の名前だけ変更する。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

上記の線で囲んだ実行マクロの計算式はどのようなものになりますでしょうか？
サイトにあるマクロのURLは下記のとおりです。
http://excel-macro.com/change_filename/

No.2 回答者： googoo900 回答日時： 2020/06/03 01:13

No.1です。

質問文にあったリンク先ファイルがアクティブな状態で、No.1のマクロを実行してもらえればわかりますが、所定のセルに変更後ファイル名を書き込むようにしています。

あと必要なのは、下記になります。
・No.1で提示したマクロのフォルダ取得、ファイル取得の部分を削除する
・既存のマクロとNo.1のマクロをつなぎ合わせる
・既存のマクロとNo.1のマクロの変数名を統一する

No.1 回答者： googoo900 回答日時： 2020/06/03 00:35

こんな感じでしょうか？

pathはリネームしたいファイルの保管先フォルダ名を記入する必要があります。

-------------------
Sub file_rename()

Dim path, fso, file, files
Dim file_new As String
Dim i As Single
Dim wb As Workbook
Dim file_ext

path = "C:/Users/xxxxxx/フォルダ名/" 'リネームしたいファイルの保管先フォルダ名を記入する
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(path).files

'フォルダ内の全ファイルについて処理
For Each file In files

'ファイルを開いてブックとして取得
file_ext = fso.GetExtensionName(file)
Set wb = Workbooks.Open(file)

'ブックに対する処理
Cells(2, "b") = "=ねこ!C4"
file_new = Cells(2, "b") & "." & file_ext

'保存せずに閉じる
Call wb.Close(SaveChanges:=False)

'リネーム
Name file As path & "\" & file_new

'ファイル名書き込み
Cells(i + 5, "b") = file_new
i = i + 1
Next file

End Sub

この回答へのお礼

ご回答ありがとうございます。
私の説明が稚拙で大変わかりづらい中、本当に感謝いたします。
イメージとしては、サイトにあるマクロでその都度フォルダを指定できるようなので
そのマクロを活かしつつ、指定したフォルダの中のファイル全部について、
それぞれのファイルの●●シートの▲セルの数値には規則的に名前が入っているので、
その名前をファイル名にしたいというｲﾒｰｼﾞです。
マクロの構文を変えずに、たとえばこのサイトにあるマクロのB２セルに●●シート！▲セルと入力するだけで、
このサイトのマクロで指定したフォルダの中の全部のﾌｧｲﾙの●●シート！▲セルに入力されたファイル名に
変えるということは難しいでしょうか？
わかりづらくて申し訳ありません。。

お礼日時：2020/06/03 00:51