• ベストアンサー
  • すぐに回答を!

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

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

共感・応援の気持ちを伝えよう!

  • 回答数2
  • 閲覧数1223
  • ありがとう数4

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

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

指定フォルダにある、"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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

関連するQ&A

  • VBAでJPGサイズ変更

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

  • Excel VBA ファイルをまとめる

    Excel2003にてフォルダにある複数ファイル(8個)の各1番左のシートを 指定したファイルにまとめるVBAを組みたいと思います。 まとめる際、ファイル名の一部を取得し、シート名にしたいのですが可能でしょうか? 例: ファイル名:20110927_△△△△株式会社.xls ⇒ シート名:△△△△株式会社 ※ファイルの個数は固定ですが、年月の部分は変わります。 簡単なVBAの経験しかなく、キーワード検索でもしっくりこないものばかりで どのようにコードを記述してよいのか非常に困っています。

  • 写真(JPG)のファイル名を一括して変更したいのですが、、、

    写真(JPG)のファイル名を一括して変更したいのですが、、、 対象ファイルをまとめて選択し、最初のファイルを右クリックして 名前の変更すると、なぜか最初のファイルが「ファイル名(2).jpg」、 順に(3)、(4)・・・となって、最後が「ファイル名.jpg」となります。 写真の整理をしないまま、3年分約3千枚にもなってしまい、 多いせいかと思って2ファイルだけで試したり、フォルダを分けて やってみましたが、同じ現象でした。 OSはVistaですが、どこかで変な設定をしてしまったのでしょうか? ファイルは撮影日順に並べており、その順に番号を付けたいのです。 ソフトを使ってファイル名を一括変更する方法もあるようですが、 上記方法でまとめてやってしまいたいと思います。 お分かりになる方、教えて下さい!!!

その他の回答 (1)

  • 回答No.1
noname#3333
noname#3333

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

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

関連するQ&A

  • EXCEL VBA で現在開いているブックのファイル名を取得する方法

    EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。 作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。 このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。 常にファイル名を取得出来るVBAをどなたか、教えて下さい。

  • EXCEL VBAで名前をつけて保存

    EXCEL2003でVBAを作成しています。 INPUTBOXに入力した名前でファイルを保存するVBAを 作成したのですが、 同じファイル名が既に存在していたときに、 エラーのメッセージを出すようなVBAはありますか?

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

    デジカメで撮影した画像や動画の整理のため、リネームソフトを探しています。 拡張子でフィルタを掛けたり、拡張子と無関係にタイムスタンプ順にリネームするソフトはあったのですが、 同一名で拡張子違いのファイルがあった場合、それを同じ名前に変換できるソフトがあったら教えて下さい。 具体的にやりたいことは、例えば下記のようなファイルがあった場合、 これを頭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とファイル名が変わってしまう のように、同じファイル名で拡張子違いだったものが、別のファイル名に変わってしまいます。 数が少なければ手作業で対応出来るのですが、大量のファイルを扱う場合はさすがにソフトで処理したいと思いまして・・・ お手数ですが、皆様の情報をご提供いただければ幸いです。よろしくお願い致します。

  • EXCEL- VBA(CSVファイル→インポート)

    A列~F列になる複数(100個以上)のCSVファイルをエクセルファイルにインポートして更に個別にエクセルファイルとして保存したいのですが VBAでできるのでしょうか? 記憶マクロでやったらどうにもうまくいきません。 エクセルのVBAについては ほとんど知識ゼロなので困っております。 大変厚かましくありますが どなた様かご教授お願いできたらと思います!! 【元のファイルの状態】   ◆ファイル名「*.CSV」*は文字数それぞれ違います。   <例:tanaka.xls だったり 09福島.xls>  ◆入っているドライブ   TEXT;C:\Documents and Settings\AA_B\デスクトップ\練習  ◆A~F列にデータが入っている 【やりたいこと】    (1)A~F列はカンマ区切りで全て文字列としたい  (2)元のファイル名でエクセルとして保存したい「*.XLS」

  • エクセルVBAのファイルが開けなくなりました

    比較的長くて複雑なVBAを含むエクセルのファイルが開けなくなりました。ファイルが開いた状態で砂時計がずっと回ったままです。 おそらくVBAで誤った記述をしたまま、無理に閉じてしまったからではないかと 思うのですが、このファイルを何とか開く方法はありますでしょうか?

  • Excelファイルの一部をjpg形式にするには?

    Windows 7でExcel2007を使用し、表を作成しました。その表の範囲指定した部分をjpgファイルにしたいのですが、その方法をご教授願います。

  • エクセルマクロで、あるディレクトリにあるjpgファイルの更新日時を取得する方法を教えてください。

    いつもお世話になっております。 過去の回答を確認したのですが、わからなかったので、教えてください。 ケータイで取った写真に、自動でシリアル番号(NEC_****.jpg)がつくのですが、写真をとった日付に自動で変更したいと考えています。 エクセルのマクロで、ファイル名を取得して、変更するプログラムを以前、作成したので、それをちょっと変更して、そのような機能をもつプログラムを作成したいと考えています jpgファイルの、更新日時を取得するマクロの記述の仕方を教えてください。 やり方としては、jpgファイルを指定して、更新日時をエクセルのどこかのセルに、記述させるようにできると、なんとか、できそうです。 以上、すみませんが、よろしくお願い致します。

  • VBAでファイル名を変更したい

    EXCEL2003のVBAでブックを連続して保存をするものを作成したのですが、スキルが足りないため、ファイル名が数字になってしまい、リネームをしたいのですが、出だしからつまずいております。 リネームをしたいブック(ファイル)は一つのフォルダに入っており、 excelのシートには旧ファイル名と新ファイル名の一覧をつくり VBAを実行すると一覧に載っているブック名が変更される というものを作りたいのですが、可能でしょうか。 一覧は 旧ファイル名  新ファイル名 1.xls      1北海道.xls 2.xls      2青森.xls という感じです。 フリーのリネームソフトではなく何とか自力でやりたいと思っております。 お力をお貸しください。 よろしくお願いいたします。

  • ACCESS(VBA)でエクセルファイルを開く時

    VBAでエクセルファイルを開いて処理していますが 一つのエクセルファイルを開いている時に(これは手操作) VBAからエクセルファイルを開くと 一瞬、開いたような反応を示すのですが すご、閉じてしまい 用を足しません こんな時、VBAで今開こうとするエクセルファイルを 優先的に開けたら、と思いますが むりでしょうか? よろしくお願いします

  • VBAを使ってセル内に記述してある複数ファイル移動を移動

    VBAを用いたファイル移動に関して教えていただきたく 質問させていただきます。 VBAでファイルを移動する方法、*htmlなど特定の拡張子および、指定フォルダ内の全ファイル移動といった方法はわかりましたが、セル内に 記載してあるもののみ移動するだけがわかりませんでした。 やりたいこととしては 事前にjpgというフォルダから 読み込んでおいたjpgファイルのファイル名の一覧が A列、B列、C列に記載されているのですが、それをマクロを実行するとtestというフォルダへ移動するようにしたいのです。 画像をすべて移動するだけなら、別にVBAを使わなくても エクスプローラーで事足りてしまいますが、 画像ファイルがすべて数字で表記されていること jpgファイル名一覧は原本で、実際には、原本のファイル名の一覧から数行だけをコピーして、別のシートを立ち上げ、そのシートに貼り付けられたjpgのファイル名だけを移動したいのです。 ここを参考にするといい!ですとか、あれば、併せて教えていただければ幸いです。よろしくお願いいたします。