• ベストアンサー

エクセルVBAを使用してJPGファイルの名前を変更するには?

MSエクセルのVBAを使用して、JPGファイル名を変更する方法はありますか? 具体的に言います。 約5,000個のJPGファイルにユニークな番号がにファイル名としてふられています。 このファイル名をすべて、頭3桁のゼロ埋めに変更したいのですが・・・ 例)50001.jpg ⇒ 00050001.jpg 50002.jpg ⇒ 00050002.jpg 50003.jpg ⇒ 00050003.jpg ・・・ このような処理は可能でしょうか? お願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.2

指定フォルダにある、"5*.jpg"ファイルを"0005*.jpg"にファイル名を変更するコード例です。 ご参考に。(少数ファイルでテストしてみて下さい) ここから ↓ Sub jpg_ReName()   Dim jpgFolder As String 'jpgファイルがあるフォルダ   Dim oldName As String '旧ファイル名   Dim newName As String '新ファイル名   Dim reNameCot As Integer '名前を変えたファイル名   jpgFolder = "A:\Test\Test02\" '**** これは例です。自分で登録します。最後は『\』   oldName = Dir(jpgFolder & "5*.jpg") '**** 5*.jpg を対象にしている   'jpgファイルがある間、繰り返す   While oldName <> ""     newName = "000" & oldName     Name jpgFolder & oldName As jpgFolder & newName     reNameCot = reNameCot + 1     oldName = Dir   Wend   MsgBox reNameCot & "個のファイル名を変更しました" End Sub

endorin
質問者

お礼

大感謝です。 これなら、コードも簡単に書けますし、 今後の業務に大いに活用できると思います。 ほんとうにありがとうございました。

その他の回答 (1)

noname#3333
noname#3333
回答No.1

こういったフリーソフトがあります どうでしょうか?

参考URL:
http://www.vector.co.jp/soft/win95/util/se208296.html
endorin
質問者

お礼

ありがとうございました。 活用させていただきます。

関連するQ&A

  • VBAでJPGサイズ変更

    VBAで 1.JPGファイルを読み込み 2.読み込んだJPGファイルの画像サイズ変更 3.再度JPG出力 の処理を行いたいのですが、どなたか分かる方がいますでしょうか? サンプルコード、関連サイトなど教えていただけると幸いです。 お時間のある方、是非教えてください。

  • ExcelのVBAでファイル名の変更

    こんにちわ。 写真というフォルダ内に以下のファイルがあります。 xxx_0001.jpg xxx_0002.jpg xxx_0003.jpg xxx_0004.jpg... Excelでこれらのファイルの名前を取得して表示し、変更してコマンドボタンを押せばファイル名を変更できるようにしたいのですが、可能でしょうか?

  • EXCEL VBAで「ファイル」→「開く」のプロシージャについて

    EXCELでVBA初心者です。本を買って練習しているのですが、基本的なところでつまずいています。本ではファイルを開くの際に、特定のファイル名を指定させて開かせているのですが、これは良いとして、少し応用をと思い、通常エクセル画面でメニューバーの「ファイル」→「開く」の記述を調べたところ、具体的な例が出てきません。色々試して見ましたがエラーになります。こういう事は普通しないのかも知れませんが誰かわかる方がいればと思い聞いてみました。

  • ファイル名「1.jpg ~10.jpg~」のソート

    ただ今、エクセルのvbaを使って 複数の写真ファイルを一気に貼り付けてJPEGに変換するプログラムを作っています。 だいたいはできたのですが、一つ壁にぶつかりました。 アルゴリズムは指定したフォルダのファイル名を取得し、それをリスト用のシートに出力し、使用者に必要なファイルを取捨選択してもらうようにしています。 フォルダのファイル名は下記URLのサンプルから使わせていただいています。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html しかし、これを使うと、 「1.jpg、2.jpg~10.jpg・・・」のファイル名を取得すると、 「1.jpg、10.jpg、2.jpg・・・」 という風になります。これを回避するには現状「01.jpg、02.jpg~10.jpg・・・」と名前をつけるしかないのですが、不特定多数の人に使わせるので、出来るだけ汎用性を持たせたいと思っています。 例えば 「テスト1-1.jpg、テスト1-2.jpg~テスト1-10.jpg・・・ テスト10-1.jpg、テスト10-2.jpg~テスト10-10.jpg・・・ テスト11-1.jpg、テスト11-2.jpg~テスト11-10.jpg・・・」 というファイル名を上の通りに並べ変えるとしたら、どうすればいいでしょうか? 難しい場合は 「01.jpg、02.jpg~10.jpg・・・」 の時だけでもいいのでよろしくお願いします。

  • エクセル上でjpgデータを取得

    WinXPでofficeXPです エクセルシート上に ファイル番号↓ 45555 47777 45754  ・  ・ があり、その番号を特定のフォルダからjpgファイルを 別フォルダにコピーするこって可能でしょうか? ただ、完全一致ではなく45555では 45555-1.jpg 45555-2.jpg 45555KK.jpg など45555を含む全てのファイルを取得したいのですが、 可能なのでしょうか?(かならずファイル名の後ろに-1、-2とかは付きます) さらに、その取得したファイルをシート上に記入したいのですが、 どうかおわかりの方がいらっしゃれば幸いです。

  • ファイルの名前を変更したい

    お世話になります。 エクセルVBAで作成しております。 「E:\フォルダ」にある拡張子が「.txt」のファイルを全て、「.xls」の 拡張子に変更したいのですが、どのようにVBAを作成すればよいでしょうか? 何卒宜しくお願いします。

  • CSVのファイルをExcelに読み込むには?

    VBA初心者です。 CSVのファイルをExcelのワークシートに読み込むコードを VBAで書きたいのですが、イマイチやり方が良く分かりません。 読み込むデータはこのような物です。 20120322C9555033044055 0222566547商品名A 888 52 20120323D9536066108125 3265842386商品名B 12547411 … (年月日8桁+番号5桁+数A3桁+数B3桁+数C3桁 番号10桁+商品名10桁 番号8桁) これを上のように分割して列に振り分けて、2行目以降は行を加算して 下に続くような形にしたいのですが、どうしたらよいでしょうか? 途中まではスペースで区切られているのですが、最後の"番号8桁"のところで 間にスペースが入っている物と入っていないものがあり苦戦しています。 よろしくお願いします。

  • ファイル名をエクセルに抜き出したい

    ご回答よろしくお願いします。 ファイル名は 「14ケタの数字」.jpg となっています。 これらを抜き出して「14桁の数字のみ」をエクセルのA列に入れたいのですが、教えていただけませんでしょうか。

  • VBA(エクセル)でアクティブファイル名の取得できますか?

    エクセルでVBAを使用して、自分自身のファイル名を取得できますか?そんなコマンドありますか? (Aと云うエクセルファイルにVBAを仕込み、自分自身がAというエクセルファイル名であることを、認識(取得)させることが出来るでしょうか) かなり素人ですので宜しく教示願います。

  • 同じ名前で拡張子違いのファイルのリネームについて

    デジカメで撮影した画像や動画の整理のため、リネームソフトを探しています。 拡張子でフィルタを掛けたり、拡張子と無関係にタイムスタンプ順にリネームするソフトはあったのですが、 同一名で拡張子違いのファイルがあった場合、それを同じ名前に変換できるソフトがあったら教えて下さい。 具体的にやりたいことは、例えば下記のようなファイルがあった場合、 これを頭4桁をFFFF、下4桁を連番で変更しようとした際に、 (元ファイル名) AAAABBBB.jpg AAAACCCC.jpg AAAACCCC.mov ← 上のjpgファイルとファイル名は一緒 AAAADDDD.jpg AAAADDDD.raw ← 上のjpgファイルとファイル名は一緒  ↓↓↓↓ (変換後) FFFF0001.jpg FFFF0002.jpg FFFF0002.mov ← 上のjpgとファイル名が同じ FFFF0003.jpg FFFF0003.raw ← 上のjpgとファイル名が同じ のように変換したいと思っています。 これまで試したソフトでは、 FFFF0001.jpg FFFF0002.jpg FFFF0003.mov ← 上のjpgとファイル名が変わってしまう FFFF0004.jpg FFFF0005.raw ← 上のjpgとファイル名が変わってしまう のように、同じファイル名で拡張子違いだったものが、別のファイル名に変わってしまいます。 数が少なければ手作業で対応出来るのですが、大量のファイルを扱う場合はさすがにソフトで処理したいと思いまして・・・ お手数ですが、皆様の情報をご提供いただければ幸いです。よろしくお願い致します。

専門家に質問してみよう