フォルダ内で自由に選択した *.xlsのファイル名を即変更するには？

フォルダ内で自由に選択した *.xlsのファイル名を即変更するには？

Windows XP　Home Edition
SP3
Office XP Personal 2002
Excel 2002

フォルダの場所は、
C:\Documents and Settings\Owner\デスクトップ\E\10
です。

画像左のように、●１ は 「 061007.xls（06年10月07日） 」 を
当フォルダ内で手作業でコピーしてファイル名を 「 E123.xls 」 に変更し作業を終えました。
そして、不要になった 「 E123.xls 」 を当フォルダ内から削除します。

次に、同様に、
画像右の●２は、「061008.xls」を
当フォルダ内で手作業でコピーしてファイル名を 「 E123.xls 」 に変更し作業を終えました。
そして、不要になった 「 E123.xls 」 を当フォルダ内から削除します。

次に、同様に、
「 061014.xls 」 ・・・

の繰り返しですが、今まではもちろん手作業で行っておりましたが、非常に多数のファイルがあるので大変でございます。


【質問のまとめでございます】
画像左　のように、
作業を終え、不要になった 「 E123.xls 」 を削除して、
「 ポインタで自由に選択した ●１ 」のファイル名を、即 「 E123.xls 」 に変更するマクロがあればと思っております。
画像の例は、「 061007.xls（06年10月07日） 」ですが、「 100529.xls（10年05月29日） 」の場合などいろいろあります。

何卒、ご教示のほどをお願い致します。

No.2 ベストアンサー 回答者： keithin 回答日時： 2010/05/30 01:40

＞ファイル名を 「 E123.xls 」 に変更し作業を終えました。

この「作業」というのが他のExcel VBAのプログラムの実行といった意味なら，たとえば。

Sub macro1()
　Dim myPath As String
　Dim myFile As String
　On Error Resume Next

　myPath = "c:\test\"
　myFile = Application.GetOpenFilename

　Kill "E123.xls"
　FileCopy myFile, "E123.xls"
End Sub

この回答へのお礼

早速のご回答、誠に有難うございます。
使い勝手が解からず、解かるまで自分には時間がかかってしまいましたが、
なんとか、実行できました。
有難うございました。

お礼日時：2010/05/30 03:44

No.1 回答者： noname#119957 回答日時： 2010/05/29 23:38

バッチ処理をしてみては？

aaa.batというテキストファイルを同じフォルダに作成して実行します。
コマンドの書き方（コマンドは１行に１個でいくらでも追加できます。）


ren sss.xx ddd.xx　意味はsss.xx をddd.xxに名前変更（rename）
del ddd.xx 意味はddd.xxを消去(delete)


これを、aaa.batなどとして保存し、クリックまたはＤＯＳコマンドとして実行できます。
ファイルパスを意識したくないなら、処理したいフォルダに置いてください。
くわしくは、dosコマンド　バッチファイルなどで調べてみてください。

この回答へのお礼

早速のご回答、誠に有難うございます。
自分としては、初めての試みですが、大変にご参考にさせて頂きます。
どうも有難うございました。

お礼日時：2010/05/30 03:43