- ベストアンサー
ExcelのVBAでファイル名の変更
こんにちわ。 写真というフォルダ内に以下のファイルがあります。 xxx_0001.jpg xxx_0002.jpg xxx_0003.jpg xxx_0004.jpg... Excelでこれらのファイルの名前を取得して表示し、変更してコマンドボタンを押せばファイル名を変更できるようにしたいのですが、可能でしょうか？
- mr-boku
- お礼率57% (4/7)
- Visual Basic
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
可能です。 ファイル名の取得→ Dir（ファイルパス , acNormal) ファイル名の変更→ Name 元のファイル名（フルパス） as 変更後のファイル名(フルパス） です。 実際にファイル名を取得する場合、ループする必要があると思います。 ループの中にセルなどにファイル名を記録していくとよいかと。
その他の回答 (1)
- shut0325
- ベストアンサー率40% (490/1207)
No.1です。 一か所間違えていました。 acNormal → vbNormal です。
関連するQ&A
- ＶＢＡ（エクセル）でアクティブファイル名の取得できますか？
エクセルでＶＢＡを使用して、自分自身のファイル名を取得できますか？そんなコマンドありますか？ （Ａと云うエクセルファイルにＶＢＡを仕込み、自分自身がＡというエクセルファイル名であることを、認識（取得）させることが出来るでしょうか） かなり素人ですので宜しく教示願います。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAでの複数階層からのフォルダ名の取得
ExcelのVBAでの複数階層からのフォルダ名の取得 下記階層に対して以下の処理をExcelのVBAで行うにはどしたら良いか、 申し訳ありませんが、どうか教えて頂きたく思います。 C:\test1 ├\aaa\ddd │ ├\xxx1\ │ └\yyy2\ │ ├\bbb\ddd │ └\xxx3\ │ │ └\ccc\ddd ├\xxx4\ ├\xxx5\ └\zzz6\ 1 C:\test1を指定する 2 1で指定した中にある各\dddフォルダ内にあるフォルダ名を順に取得する 3 2で取得したフォルダ名をExcelのSheet1のA1から順に書き出す Excel A B C D E 1 xxx1 2 yyy2 3 xxx3 4 xxx4 5 xxx5 6 zzz6 7 8 9 Sheet1 Sheet2 Sheet3 勉強不足で申し訳ありません。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel VBAでフォルダー・ファイル名の取得
いつもお世話になります。 Ｅｘｃｅｌで、決められたディレクトリーの下にあるフォルダー名とファイル名を取得して Ｅｘｃｅｌに表示したいのですが、調べたのですがよくわかりませんですた。 決められたディレクトリーは固定で、その下には複数フォルダーがあります。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- ファイル名をまとめて変更する方法を教えてください
あるフォルダの下にある複数のファイル名を、同じ規則で 変更したいです。（ＯＳ：Ｗｉｎ９８） （ＰＣ：富士通ＢＩＢＬＯ ＮＥ３６） 例：ＡＢＣＸＸＸ を ＡＢＣＤＸＸＸ に変更 （ ＸＸＸ の部分は、３桁の数字です ） 一つ一つ手作業で変更するのは、たいへんな量なのです。 そのフォルダの下には複数のフォルダがあり、 それらのフォルダの直下に各ファイルが分散しています。 ファイルの種類は、jpg と txt です。 できれば、ソフトを使わずに行いたいのですが・・・。 よろしく、お願いします。
- ベストアンサー
- Windows 95・98
- エクセルファイル名の変更について
フォルダ内のエクセルファイル名を変更したいのですが無数にある為、一括処理したいのですが．．．変更規則は以下の通りです フォルダＡ：エクセルファイル１～１００があります エクセルファイル１を開くと下記のようなデータがあります Ａ Ｂ Ｃ Ｄ １ファイルＮｏ：１ 社名 ○×商事 担当 鈴○ 様 処理日付ｘｘｘｘ/ｘｘ/ｘｘ ２ 社コード：○○○ セルＢ1にある○×商事とＢ２の社コードの○○○を取り出してファイル名を下記のように全てしたいのですがご教授願えますでしょうか？ ファイル１.xls → ○×商事 ○○○.xls この作業をフォルダ内にある全てのエクセルファイルに実行したいのです。説明が下手で申し訳ありませんがヨロシクお願いします。
- 締切済み
- その他(業務ソフトウェア)
- VBAでファイル名の記号文字を一括で変更したい
VBAマクロで、ボタンを押すと以下の動作をさせるには、どうしたらいいですか？ ファイルの保存先は 別のシートのC19に記載してあり、 ファイル名がエクセル上に次のように並んでいます。 A B C fhuo5%ju.jpg shuy4#jhu+.jpg shujty5-hsa.jpg husfa++k.jpg hugyg5%dd.jpg jiysre-yyhar.jpg … ここから、％や＋、-といった記号を １～９の数字に置き換え、ファイル名の変更をしたいのです。 マクロの知識が無く、 どの関数を使ったらいいか不明です。 お力をお貸しいただけると幸いです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 長いファイル名を変更したいのに出来ません
フォルダの名前を変更したいのですが、ファイル名が長いためか、右クリックしても『名前の変更』が表示されません。 どのようにすれば変更できるのでしょうか。 OSはXPです。ご教授お願いします。
- 締切済み
- Windows XP
- 写真（JPG）のファイル名を一括して変更したいのですが、、、
写真（JPG）のファイル名を一括して変更したいのですが、、、 対象ファイルをまとめて選択し、最初のファイルを右クリックして 名前の変更すると、なぜか最初のファイルが「ファイル名(2).jpg」、 順に(3)、(4)・・・となって、最後が「ファイル名.jpg」となります。 写真の整理をしないまま、3年分約3千枚にもなってしまい、 多いせいかと思って2ファイルだけで試したり、フォルダを分けて やってみましたが、同じ現象でした。 OSはVistaですが、どこかで変な設定をしてしまったのでしょうか？ ファイルは撮影日順に並べており、その順に番号を付けたいのです。 ソフトを使ってファイル名を一括変更する方法もあるようですが、 上記方法でまとめてやってしまいたいと思います。 お分かりになる方、教えて下さい！！！
- ベストアンサー
- Windows Vista
- ディレクトリ名をファイル名するバッチファイル
ディレクトリ名を取得してその名称でフォルダを作るバッチファイルを考えています。 OSはWINDOWS XPです。 こういったディレクトリがあるとします。 １１１～４４４：名称が固定のディレクトリ ｂｂｂ：名称が可変するディレクトリ mmm.bat、xxx.text：１１１フォルダと同じところにあるファイル １１１┬２２２─ｂｂｂ┬３３３─yyy.text │ └zzz.text │ └ｂｂｂ┬３３３─yyy.text └zzz.text mmm.bat xxx.text mmm.batを実行すると、111ディレクトリ以下のフォルダ名を取得し、 下記のようにフォルダを作成し、yyy.textの場所にbatファイルと同じ 所にあるxxx.textをコピーして差し替えるという動作をしたいのです。 （zzz.textは内容は違うが同じファイル名です） ４４４┬２２２─ｂｂｂ┬３３３─xxx.text │ └zzz.text │ └ｂｂｂ┬３３３─xxx.text └zzz.text バッチコマンドで、ディレクトリ名を取得して空のフォルダを作る所までは 下記のようにできたのですが、 ４４４┬２２２─ｂｂｂ─３３３ │ └ｂｂｂ─３３３ 二つのzzz.textのコピー方法と、yyy.textの場所にxxx.textをコピーするにはbbbという可変するディレクトリを通らなければいけないのでその取得方法がわかりません。 分かる方は是非お教えください。 言葉が足りないところは補足もいたします。 よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
お礼
すばやい回答ありがとうございます。 助かりました。