ファイル名を一括変更！ExcelVBAで簡単にできる

独学でExcelVBA勉強し、業務の効率改善しまくっているtsenです。

このブログでは、人事・総務をはじめ管理系の事務作業に役立つ
ExcelVBAを使った便利ツールをたくさん紹介しています。

今回は、ファイル名を一括変更する方法です。

ファイル名を一括変更するためのフリーソフトはたくさんありますが、

ExcelVBAを使っても簡単に実現することが出来ます。

ExcelVBAでファイル名を一括変更する方法
設定シートを事前準備する
ファイル名称を一括変更してみよう！
ファイル名称を一括で取得する方法

ExcelVBAでファイル名を一括変更する方法

特定のフォルダ内にいくつかファイルが格納されていて、
そのファイル名を一括変更（リネーム）する方法です。

このページを読むと実現することは以下のようなことです。

このように、ファイル名称を一気に変更したいときに役立ちます。

またこのツールでは、元ファイルをコピーしてから名称を変更するので、
元ファイルはそのままにファイル名称変更後のファイルも保存することが出来ます。

設定シートを事前準備する

まず、下記にようなExcelシートを準備しましょう。

設定シートに必要な項目は４つ。
元フォルダのパスとリネーム後のフォルダパス・元ファイル名と新ファイル名です。

そしたら、標準モジュールに以下のVBAコードを入れて、マクロブックで保存してください。

標準モジュールの立ち上げ方が分からない人は、
まずこちらの超初心者向け「初めてのマクロ」を先に読んでください。

Option Explicit

Sub ファイルリネーム()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim FolderName As String
Dim NewfolderName As String
Dim OldFileName As String
Dim NewFileName As String
Dim i As Integer

FolderName = Sheets(1).Cells(2, 4) & "\"
NewfolderName = Sheets(1).Cells(3, 4) & "\"

i = 5
Do Until Sheets(1).Cells(i, 1) = ""
   OldFileName = FolderName & Sheets(1).Cells(i, 1)
   NewFileName = NewfolderName & Sheets(1).Cells(i, 2)
   FSO.copyfile OldFileName, NewFileName
i = i + 1
Loop
Set FSO = Nothing

End Sub