PR

【VBA】指定フォルダのファイル名を一括変換する方法

VBA
この記事は約2分で読めます。
記事内に広告が含まれています。

今回は前回の記事の「指定したフォルダのファイル一覧を取得する」で取得したファイル名を任意のファイル名に変換するコードを紹介します。

一括でファイル名を変更できるので、変更したいファイル数が多い時に重宝します。

Amazon

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ!


無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています!

 

 

うめ
うめ

30日間以内に解約すれば費用は発生しません!

コード

コードはなるべくシンプルに作りたかったので、選択したボタン名によって処理を分岐するようにしています。

今回は一つのマクロで処理を分岐させているので、どちらのボタンも「FilenameControl」を登録しています。

注意点

注意点1

コードをコピペして使う場合、ボタンの名前はサンプル通りに設定しないと動きません。

ボタン名を変更したい場合はコード内の
「If Button_Text = “ファイル名を取得” Then」
「ElseIf Button_Text = “ファイル名を変換” Then」
赤字部分とボタン名が一致するように修正してください。

注意点2

ファイル名の取得」を選択した後にファイルを移動すると「ファイル名を変更」の選択でエラーが発生します。
※変更前のファイルが見つけられなくなります。

使い方

操作の流れ
  1. 対象フォルダの下の行にファイル一覧を取得したいフォルダのパスを設定
  2. ファイル名を取得」を選択すると変更前の列にSampleフォルダのファイル一覧が表示されます。
  3. 変更後変更したいファイル名を設定して「ファイル名を変更」を選択

①対象フォルダの下の行にファイル一覧を取得したいフォルダのパスを設定

※サンプル用のデータとしてCドライブ直下にSampleフォルダを作成して、Excelを10ファイル格納しています。

②「ファイル名を取得」を選択すると変更前にSampleフォルダのファイル一覧が表示されます。

変更後変更したいファイル名を設定して「ファイル名を変換」を選択

設定した通りにファイル名が変更されます!

補足

変換したくないファイル名は空白のままでOKです。

変更後に入力があるファイル名だけが変わります。

この記事が気に入ったら
いいね ! しよう

Twitter で
この記事を書いた人

便利なガジェットレビューやPCのトラブル解消記事を書いています。
単調な繰り返し作業が苦手なので、作業効率化の仕組みを記事にしています。
月間9万PVを突破しました!
商品レビューのご依頼は「お仕事の依頼について」をご確認ください。

うめをフォローする
VBA
梅屋ラボ
タイトルとURLをコピーしました