【Excel VBA】ファイル名変更マクロ▽ソースコード
《操作》
(1)メニューの開発→マクロから、「Aフォルダー指定マクロ」を選択して実行。ファイル名を変更したいフォルダーを選択します。
図1図2(2)メニューの開発→マクロから、「Bファイル名検索マクロ」を選択して実行。指定したフォルダーのファイル名をC列に取り込みます。
図3(3)変更したいファイル名をD列「変更ファイル名(入力)」に手入力します。その時、セルが空欄であれば、ファイル名は変更されません。また、D列に入力するデータは数式があっても構いません。ちなみに、図4は、[="SAMP" & TEXT(ROW()-2,"000") & ".txt"]と入力しています。
図4(4)メニューの開発→マクロから、「Cファイル名変更マクロ」を選択して実行。正常にファイル名が変更されると、変更処理結果に[〇]が付きます。ファイル名が不正であったり、すでにあるファイル名を指定して、ファイル名が正常に変更されないと[×]が付きます。
図5Option Explicit
Option Base 0
'
Const FLDRCELL = "C1" 'フォルダー格納セル
Const FILTERSS = "*.*" 'ファイル名検索フィルター
Const FLSTFROW = 3 '検索ファイル名格納先頭行
Const FLSTFCOL = 3 '検索ファイル名格納カラム
Const NLSTFCOL = 4 '新規ファイル名格納カラム
Const MARKFCOL = 5
0