マクロについて教えてください

質問

エクセルで
ファイル名を一括変更するマクロを作りたいのですが方法を教えてもらえないでしょうか？

A_001
A_002
A_003
A_004

のようになっているファイル名から一括で「A_」を削除したいだけなのですが

回答No.2

keithin · ベストアンサー

sub macro1()
　dim myPath as string
　dim myFile as string

　mypath = "c:\test\"
　myfile = dir(mypath & "*.*")

　do
　　if left(myfile, 2) = "A_" then
　　　name mypath & myfile as mypath & mid(myfile, 3)
　　end if
　　myfile = dir()
　loop until myfile = ""
end sub
みたいな。

お礼

ありがとうございました

回答No.1

bin-chan

式でrenameのバッチファイルネタを作るほうが早そう。

どうしてもVBAがよければ
キーワード「FSO RENAME VBA」で検索

お礼

ありがとうございました。