求助，我要将名为x08.23这种格式按日期排列的表，循环打开复制

Dim i As Integer, vb As Workbook
For i = 25 To 31
Set vb = Workbooks.open("F:\2018象山\系统报表\8月\x08." & CStr(i) & ".xls")
Cells.Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Sheets("25").Select
Cells.Select
Sheets("25").Paste
vb.Close True
Application.DisplayAlerts = False
Next i
End Sub