フォルダ内のPDFファイル名を変更するマクロ

質問

エクセルのマクロで、フォルダ内の複数のPDFファイルの名前をそれぞれ変更したいのですが、どのようにしたらよいのでしょう？ ファイルを開く必要はありません。 お手数ですがご教示くださいませんでしょうか？？

回答No.2

imogasi

したいことまる投げでコードを書いてほしいという型になっている。
この質問コーナーの望んでいないところです。
ーー
どう言うことをできたら、この課題ができるか考えること。
困難課題は要素に分けるのが鉄則。
ーー
フォルダの指定ープログラムに組み込むか。ユーザーに応答させるか
フォルダ内のファイル（名）の取得方法
拡張子PDFの判別ーIf Right(x,4)=".PDF" Then
ファイルの名前の変更ー.Name="新名"
--
名前変更の対応関係をどうするか
プログラムに書き込む
ルールありーー例　名前の跡にN１字追加
ユーザーに都度答えさせる
のか、決める（決まっているだろうから質問に書くべき）
ーー
WEBで「フォルダ　ファイル名　VBA」で照会すれば沢山コード例
ガ出る。
http://itpro.nikkeibp.co.jp/article/COLUMN/20060120/227645/が参考になると思う。余分な部分もあるが。以上やってみて、もっと的を絞って行き詰まるった点を質問してください。

お礼

imogasi様
どうもありがとうございます。ご指摘ごもっともでした。
VBA、PDF、このサイト（今回初めてでした）とも不慣れで大変失礼致しました。
当方の知識がなく、折角ご教示いただいたコードや、ご紹介いただいたサイトなどもあまり理解できません。またある程度勉強しなおしてから質問してみます。

回答No.1

pbforce

参考になると思います

参考URL：

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_100.html

補足

早速にどうもありがとうございます！
・・・ですがすみません。当方、結構初心者でして、同じ名前のフォルダ、ファイルを作成して、リンクいただいたwebから以下の式を貼り付けてみたのですが上手く行きませんでした。そもそもいきなりOption Explicitや、Private Constでつまってしまいました。。
それからPDFファイルにはShellを使うらしいと調べてみてなんとなく分ったのですが、この点はいかがでしょうか。

sub TEST()
Option Explicit
Private Const cnsSOUR = "C:\AAA\SAMPLE1.txt" ' 元ファイル
Private Const cnsDEST = "C:\BBB\SAMPLE2.txt" ' 先ファイル
END SUB