-
複数のファイル名をそれぞれ別のファイル名に一括変換する方法
ファイル名をそれぞれ別のファイル名に一括変換したいな~っと思い方法を探ってみました!
とりあえず、失敗するかもしれないのでここに書き書きメモメモしながらしていきます。
完成したら、タイトルには「ファイル名をそれぞれ別のファイル名に一括変換する方法」で投稿できるけど・・・
失敗したら、「ファイル名をそれぞれ別のファイル名に一括変換しようとしたら失敗した」で投稿だねwでは、さっそくやってみよう!
用意するものはエクセルです。
私のPCにはExcel2003とExcel2016の2つのエクセルが入っています。
個人的にはExcel2003が大好きですw
なので、今回はExcel2003を使ってマクロを組んでいきたいとおもいま~す!
※マクロはExcel2003でしか組んだことありません。
まずは私がしたいことはA列のようなファイル名を横のB列のファイル名にしたいといったイメージです。ファイル名の後ろに数字をつけたり、特定のファイル名にしてその後ろに数字をつけてリネームもソフトが色々あって簡単に出来ますが、まったくバラバラなファイル名をそれぞれ別々のファイル名に一括変換できたらかなり楽で仕方ないですよね。
ってことでそんなことを実現すべく頑張ります!
まずはエクセルを開きます。
そしてマクロの中にある「Visual Basic Editor」を開きます。
Sheet1に作ろうと思うので、「Visual Basic Editor」で左側の「Sheet1」をクリック。
まっさらな画面が出てきました。
う~ん、久々のマクロですることは決まっているのに何しようか悩んでしまいそうですねw
まずは、ファイル名を変えたいファイルがどこにあるのか位置を特定させるところからスタートです。今回はさっきの適当な数字をフォルダ名にしたフォルダを準備しました。
↓こんな感じです。
左の各フォルダはデスクトップの「prototype」というフォルダ内に入っています。
なのでマクロに「prototype」内のフォルダと指定しなければいけないのでこの動作をマクロにまずは記述していきます。でも、毎回このフォルダに名前を変えたいフォルダ移動させるのも面倒ですね。
なので、適当にエクセルシートのセルにフォルダの位置を記入してここの中ですよ~ってした方が良さそうですね。
ってことで、A1のセルに名前を変えたいフォルダが入っているフォルダのフルパスを入力します。
エクセルA1にスペースが欲しいので1段追加しました。
そして、左側のフォルダの上のパス(C:\Users\(PCのユーザー名)\Desktop\prototype)をコピーして、エクセルのA1に貼り付け。することが決まったので宣言を考えよう!
Dim 変数名 [As データ型]
①Dim fp As String
fp←パスを変数に格納するので
fp = Range(“A1”).Value & “\”
②Dim i As Long
この場合、さっき1段ずらしたので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 Stringfp = 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 iExit Sub
ERR_HANDL:
Cells(i, 3).Value = _
“×” & Err.Description & “:” & Err.Number
Resume NextEnd Sub
実際にマクロを実行してみたいと思います。
実行した結果↓
成功しました。
更にもう一度適当にファイル名を指定してみました!
今回は「平仮名」「 (空白)」「_」とかも混ぜてみました。
↓結果がこちら↓
問題なく変更されました。
これで一々コピー貼り付けや1つ1つファイル名を編集する手間が省けましたね!
以上、エクセルのマクロを使って複数のファイル名をそれぞれ別のファイル名に一括変換する方法でした。この方法をされる方は自己責任でバックアップをとってからやりましょう!
2017年6月7日 / exe / 0
カテゴリー: メモ
タグ: Excel, Excel2003, Visual Basic Editor, エクセル, マクロ, 便利ツール
「テキストボックスに<BR>が表示されちゃう!!」そんな時、<BR>を表示されないようにする方法!! えっ、あんスタに台湾版とかあるの???気になったので調べてみる!!(動画有り)
Count per Day
- 1現在オンライン中の人数: