|
>貼り付け先のファイルは、他のソフトからの出力データ(EXCELファイル)でその都度連番数字がファイル名として割り当てられますので、VBA上でファイル名を特定することが出来ません。
ということでしたので、このブックをアクティブにした状態でという事にしました。
マクロを書くのがどのブックなのか解らないから、取りあえずコピー元のブックにしました。
取りあえず下記マクロで、某フォルダの.xlsファイルだけを検索しながらファイル名を比較して(文字列比較)1番新しそうなものを選んでます。
なんか勝手に昇順ソートされているから、ファイル名での比較は要らないのかもしれないけど....。
検索して抽出したブックを開いて、このブックに貼り付ければ...。
Sub AAAA()
Dim FlNm As Variant, SavF1 As String, SavF2 As String
Dim FFL As String
'フォルダのプルパス
BPth = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
For Each FlNm In CreateObject("Scripting.FileSystemObject").GetFolder(BPth).Files
FFL = Dir(FlNm)
If Right(FFL, 4) = ".xls" Then
i = i + 1
Cells(i, 1).Value = FFL
If FFL > SavF1 Then
SavF1 = FFL
SavF2 = FlNm
End If
End If
Next
MsgBox "1番新しきものは、" & vbLf & SavF1 & vbLf & _
"フルパス" & vbLf & SavF2
End Sub
|
|