log

複数のファイル名をそれぞれ別のファイル名に一括変換する方法

ファイル名をそれぞれ別のファイル名に一括変換したいな～っと思い方法を探ってみました！

とりあえず、失敗するかもしれないのでここに書き書きメモメモしながらしていきます。

完成したら、タイトルには「ファイル名をそれぞれ別のファイル名に一括変換する方法」で投稿できるけど･･･
失敗したら、「ファイル名をそれぞれ別のファイル名に一括変換しようとしたら失敗した」で投稿だねｗ

では、さっそくやってみよう！

用意するものはエクセルです。

私のPCにはExcel2003とExcel2016の２つのエクセルが入っています。


個人的にはExcel2003が大好きですｗ
なので、今回はExcel2003を使ってマクロを組んでいきたいとおもいま～す！
※マクロはExcel2003でしか組んだことありません。


まずは私がしたいことはA列のようなファイル名を横のB列のファイル名にしたいといったイメージです。

ファイル名の後ろに数字をつけたり、特定のファイル名にしてその後ろに数字をつけてリネームもソフトが色々あって簡単に出来ますが、まったくバラバラなファイル名をそれぞれ別々のファイル名に一括変換できたらかなり楽で仕方ないですよね。

ってことでそんなことを実現すべく頑張ります！

まずはエクセルを開きます。

そしてマクロの中にある「Visual Basic Editor」を開きます。



Sheet1に作ろうと思うので、「Visual Basic Editor」で左側の「Sheet1」をクリック。


まっさらな画面が出てきました。
う～ん、久々のマクロですることは決まっているのに何しようか悩んでしまいそうですねｗ
まずは、ファイル名を変えたいファイルがどこにあるのか位置を特定させるところからスタートです。

今回はさっきの適当な数字をフォルダ名にしたフォルダを準備しました。

↓こんな感じです。


左の各フォルダはデスクトップの「prototype」というフォルダ内に入っています。
なのでマクロに「prototype」内のフォルダと指定しなければいけないのでこの動作をマクロにまずは記述していきます。

でも、毎回このフォルダに名前を変えたいフォルダ移動させるのも面倒ですね。
なので、適当にエクセルシートのセルにフォルダの位置を記入してここの中ですよ～ってした方が良さそうですね。
ってことで、A1のセルに名前を変えたいフォルダが入っているフォルダのフルパスを入力します。


エクセルA1にスペースが欲しいので１段追加しました。
そして、左側のフォルダの上のパス（C:\Users\（PCのユーザー名）\Desktop\prototype）をコピーして、エクセルのA1に貼り付け。

することが決まったので宣言を考えよう！

Dim 変数名 [As データ型]

①Dim fp As String

fp←パスを変数に格納するので

fp = Range(“A1”).Value & “\”

②Dim i As Long

この場合、さっき１段ずらしたのでA2から下にフォルダ名を変えたいフォルダ名が入っているので2を指定します。

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

③Dim fo As String

現在のファイル名を取得させます。

fo = Cells(i, 1).Valu

④Dim fn As String

新しいファイル名を取得させます。

fn = Cells(i, 2).Value

他にもC列に結果を入力させたりと･･･


で、サクサク書いて完成したのがこちら↓



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






実際にマクロを実行してみたいと思います。



実行した結果↓



成功しました。

更にもう一度適当にファイル名を指定してみました！



今回は「平仮名」「　（空白）」「_」とかも混ぜてみました。

↓結果がこちら↓



問題なく変更されました。

これで一々コピー貼り付けや１つ１つファイル名を編集する手間が省けましたね！
以上、エクセルのマクロを使って複数のファイル名をそれぞれ別のファイル名に一括変換する方法でした。

この方法をされる方は自己責任でバックアップをとってからやりましょう！

カテゴリー: メモ

タグ: Excel, Excel2003, Visual Basic Editor, エクセル, マクロ, 便利ツール

自分用の都合がいいページを作る！-その２- 自分用の都合がいいページを作る！-その３-