application enableevents

Ответ от Max S[гуру]
Sub RunCodeOnAllXLSFiles() Dim lCount As Long Dim wbResults As Workbook Dim wbCodeBook As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False On Error Resume Next Set wbCodeBook = ThisWorkbook With Application.FileSearch .NewSearch \'Change path to suit .LookIn = "C:\\01" .FileType = msoFileTypeExcelWorkbooks \'Optional filter with wildcard \'.Filename = "*.xls" If .Execute > 0 Then \'Workbooks in folder For lCount = 1 To .FoundFiles.Count \'Loop through all \'Open Workbook x and Set a Workbook variable to it Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0) \'DO YOUR CODE HERE MsgBox wbResults.FullName MsgBox wbResults.Name Application.ActiveWorkbook.SaveAs "C:\\instructions\" & wbResults.Name \'Copy wbResults.FullName, "C:\\instructions\" & wbResults.Name wbResults.Close SaveChanges:=False Next lCount End If End With On Error GoTo 0 Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True MsgBox "done" End Sub