|
マクロ実行ブックの先頭シートのIV列を作業列として、数値の部分を抜き出し、
ソートして最大値を求めてファイル名に戻して開く。というコードにしてみます。
Sub ES08で始まるファイルを開く2()
Dim MyF As String, OpF As String
Dim i As Long, p1 As Long, p2 As Long
Application.ScreenUpdating = False
MyF = Dir(ThisWorkbook.Path & "\ES08*.xls")
Do While MyF <> ""
i = i + 1
p1 = InStr(1, MyF, "u_") + 2
p2 = InStr(1, MyF, ".")
Worksheets(1).Cells(i, 256).Value = _
Mid(MyF, p1, p2 - p1)
MyF = Dir()
Loop
If i = 0 Then
MsgBox "開く対象のファイルが見つかりません", 48
GoTo ELine
End If
With Worksheets(1).Range("IV:IV")
.NumberFormatLocal = "0_ "
.Sort Key1:=.Columns(256), Order1:=xlDescending, _
Header:=xlNo, Orientation:=xlSortColumns
OpF = ThisWorkbook.Path & "\ES08_aiu_" & _
.Range("IV1").Value & ".xls"
Workbooks.Open OpF
.Clear
End With
ELine:
Application.ScreenUpdating = True
End Sub
|
|