Проблема воспроизводится на двух компьютерах с разными релизами Excel 16.0.12228.20322 64-bit и 16.0.6701.1029 64-bit
Макрос выполняется нормально. Но если остановить выполнение макроса по
Ctrl+Break, при повторном выполнении макроса начинает появляться ошибка
Цитата |
---|
Code execution has been interrupted |
Лечится только перезагрузкой компьютера. Перезапуск Excel не помогает (процесс не висит). В чем может быть причина?
Код |
---|
Sub update()
Application.ScreenUpdating = False
Dim N As String
Dim wbk As Workbook
Set wbk = ThisWorkbook
Dim LastRow As Long, i As Long
Workbooks.Open Filename:="<вырезано>\database20.xlsx"
Workbooks("database20.xlsx").Activate
ActiveWorkbook.Sheets("TDSheet").Range("A2:cz15000").Select
Selection.Copy
ThisWorkbook.Activate
ActiveWorkbook.Sheets("Temp").Range("A2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Workbooks("database20.xlsx").Close False
ThisWorkbook.Sheets("Temp").Activate
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = LastRow To 2 Step -1
If Cells(i, 2) = "e" Then Rows(i).Delete
Next
ActiveWorkbook.Sheets("Temp").Range("A2:CZ15000").Copy
ActiveWorkbook.Sheets("Data").Range("A2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Sheets("Temp").Range("A2:CZ15000").ClearContents
Application.ScreenUpdating = True
ThisWorkbook.Sheets("Settings").Activate
End Sub
|