VBA 最新ファイルをコピーし名前変更 Excel

質問

いつもお世話になっております。

今回やりたいことは、
●指定フォルダの中にある全てのファイル名、更新日時を取得(自ファイル以外)
●シートに記述
●最新ファイルをコピー
●コピーしたファイル名称を変更
※ファイル名の数値部分のみ変更

になります。

例1）C:\TEST
C:\TEST\TEST1.xls　更新日時2013/11/11
C:\TEST\TEST2.xls　更新日時2013/11/12
C:\TEST\TEST3.xls　更新日時2013/11/14

⇒C:\TEST\TEST4.xls を作成

例2）C:\TEST
C:\TEST\2013TEST11_11.xls　更新日時2013/11/11
C:\TEST\2013TEST11_17.xls　更新日時2013/11/15
C:\TEST\2013TEST11_19.xls　更新日時2013/11/18

⇒C:\TEST\2013TEST11_20.xls を作成

例3）C:\TEST
C:\TEST\TEST1(2013_11_11).xls　更新日時2013/11/16
C:\TEST\TEST2(2013_11_15).xls　更新日時2013/11/21
C:\TEST\TEST3(2013_12_01).xls　更新日時2013/12/01
⇒C:\TEST\TEST4(2013_12_11).xls を作成

Inputboxが出てきて、
数値の部分のみ変更ができるというのでも良いのです。
最新ファイルを取得し、コピーして名前を変更がしたいのです。
できれば、ファイル名の法則？に従って数値のみ編集したいと思っています。

やはり、難しいでしょうか？

回答よろしくお願い致します。

回答No.1

oka_me · ベストアンサー

>できれば、ファイル名の法則？に従って数値のみ編集したいと思っています。

私の知識内では代替案になってしまいますが・・・（もっと詳しい方なら出来るのかもしれません）
Inputbox内の初期値として最新のファイル名が代入されます。
数値部分のみを編集してOKを押せば近いような処理にはなるかと思いますが如何でしょうか。。。

例としてファイル名はA1～、更新日時（日時というか更新日でしょうか？）はB1～に出力させます。
※時間まで出したい場合はFormatを外せば出来ると思います。例えば更新日が同一のファイルが複数あったりする場合、こちらの方が確実に最新のファイルを特定できるので推奨しますが・・・

Sub test()

Dim strfolder As String
Dim strnewfilename As String
Dim buf As String
Dim i As Long
Dim copybook As Workbook

ActiveSheet.Cells.ClearContents

strfolder = ThisWorkbook.Path & "\"
buf = Dir(strfolder)
i = 1

Do Until buf = ""
If buf <> ThisWorkbook.Name Then
Range("A" & i) = strfolder & buf
Range("B" & i) = "更新日時:" & Format(FileDateTime(strfolder & buf), "yyyy/mm/dd")
i = i + 1
End If
buf = Dir()
Loop

Range("A1").CurrentRegion.Sort key1:=Range("B1"), key2:=Range("A1")

Set copybook = Workbooks.Open(Range("A1").End(xlDown).Value)
strnewfilename = InputBox("保存するファイル名を入力", Default:=copybook.Name)

With copybook
.SaveAs strfolder & strnewfilename
.Close(False)
End With

End Sub

お礼

回答ありがとうございます！
お蔭様で上手く作ることが出来ました。