大量のファイルのファイル名一括変更

510枚のTACカードの両面スキャンで、1,020個のファイルができたのですが、日付がファイル名になっていて、見づらいなぁ～なんて思う方向けですので、気にしない方はそのままでOKです。

カードの番号をファイル名にしておけば後々探しやすいと聞き、ファイル名を変更しようと思いました。

丁寧に書いてみたので、かなり長いですが、実際の作業は5分くらいで終わりますので、気になった方はお試しください^^

たくさん調べ試行錯誤して辿り着いた方法をまとめましたが、私はプログラミングのプロではなくただの主婦なので、細かい仕組みとかはよくわかりません。

あくまでも自己責任の上バックアップを取ってから実行してください。万が一この方法でファイルが消えたり、開けなくなっても責任は負いかねます。(私自身もコピーを使っています)

ファイル名どうする？
マクロの設定
変更したいファイル名をA２セルへ貼り付け
並び順がおかしい場合
変更後のファイル名を隣(B列)に入力
マクロを実行する

ファイル名どうする？

TACは裏表があるので、スキャンしたファイルは順番に1表・1裏・2表・2裏…なっています。

ファイル名をこれに沿って、1f・1b・2f・2b…のようにしたいと考えました。

ちなみに、f=front⇒表・b=back⇒裏です。

フリーソフトで一括で変更できるものを探しましたが、いいものが見つからず、結局エクセルでマクロを組んで変更することにしました。(自分でマクロ組むなら変なフリーソフト入れるより怖くないしね)

マクロを組むと聞くと難しそうですが、コピペでできるので簡単ですよ♪

マクロの設定

まず、エクセルを開いたときに、『開発』タブはありますか?

無い方は、以下の方法で表示させてください。

1. エクセルを開き、『ファイル』→『オプション』をクリック
2. ↑の画像のように『リボンのユーザー設定』をクリックして、
右に出てきた『開発』の横にあるチェックボックスにチェックをいれる☑

それでは、本題に入ります。

①『開発』タブ→1番左の『Visual Basic』をクリック

②出てきたウィンドウで、左側のSheet1をクリック後、左上のコードの表示ボタンをクリック

③右側に↓をコピー&ペーストする。

Sub ファイル名を指定のファイル名に一括変換()
 Dim fp As String
 Dim i As Long
 Dim fo As String
 Dim fn As String
 fp = Range("A1").Value & "\"
 On Error GoTo ERR_HANDL
 Range("C1").Value = "実行結果"
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 fo = Cells(i, 1).Value
 fn = Cells(i, 2).Value
 If fn <> "" Then
 Cells(i, 3).Value = _
 "ファイル名を" & _
 "「" & fo & "」から" & _
 "「" & fn & "」に変更"
 Name fp & fo As fp & fn
 End If
 Next i
 Exit Sub
 ERR_HANDL:
 Cells(i, 3).Value = _
 "×" & Err.Description & ":" & Err.Number
 Resume Next
 End Sub