提示运行时错误，错误代码‘445’，请问怎么解决呢，03运行正常，现在是2010版本。

qinshuai8507

Sub yy()
Dim twb, wb
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'mys = InputBox("请输入需要更改的名称。")
'm = "检测报告"

Set Nm = ThisWorkbook
With Application.FileSearch            这句代码是黄色提示
    .LookIn = Nm.path
    .Filename = "*.xls"
    .Execute msoSortByFileName
    For Each s In .FoundFiles
        If s <> Nm.FullName Then
            Set wb = Workbooks.Open(s)

          wb.Close True
        End If
    Next s
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

skiss10086

EXCEL是2007或以上版本已不支持Application.FileSearch方法了。

qinshuai8507

skiss10086 发表于 2018-7-1 21:16
EXCEL是2007或以上版本已不支持Application.FileSearch方法了。

请问我的这段代码如何修改呢？请指教

qinshuai8507

高手麻烦给改下，用dir怎么实现这个功能呢