Книга Excel повреждена и отремонтирована, теперь в листе указано, что не хватает памяти при ошибке кода - PullRequest
Новая
       20

Книга Excel повреждена и отремонтирована, теперь в листе указано, что не хватает памяти при ошибке кода

0 голосов
/ 11 июня 2019

Итак, я вырезал и вставил (Первая ошибка) мою книгу .xlsm поверх предыдущей копии, и она просто исчезла. После обновления папки она снова была там, но повреждена, Excel отремонтировал файл, сообщив, что он исправил причину проблемы.который был «Восстановленные записи: Рисование из /xl/drawings/drawing7.xml части (Форма чертежа)».Большой!Итак, я вернулся к работе, и когда я выполняю этот код, он продолжает выдавать ошибку, и после этого я получаю ошибки «Недостаточно памяти» и не могу сохранить книгу.

Я работаю на 64-разрядном ExcelИметь 8 ГБ оперативной памяти, так что, возможно, не фактическая память.Я попытался удалить код и использовать другой код на другом листе, но все еще делает то же самое.Также, когда я сохраняю книгу после удаления кода.Он снова повреждается при открытии 

Private Sub BtnNoticeRemove_Click()

Dim Lastrow, a As Long

If Sheets("Admin").cbxNotice.Text = "" Then
   MsgBox "No data Selected"
   End
End If

a = 2

Lastrow = Sheets("BP").Cells(Rows.Count, 19).End(xlUp).Row

Do Until a = Lastrow + 1

If Sheets("Admin").cbxNotice.Text = Sheets("BP").Cells(a, 19).Value Then
    Sheets("BP").Cells(a, 19).Delete Shift:=xlUp
    Lastrow = Sheets("BP").Cells(Rows.Count, 19).End(xlUp).Row
    Sheets("BP").Range("S2:S" & Lastrow).Sort Key1:=Range("S2"), 
    Order1:=xlAscending
End If

a = a + 1
Loop

End Sub

РЕДАКТИРОВАТЬ:

Спасибо за отзыв, ребята, хорошо, поэтому мне удалось воссоздать все мои данные в макросах.Больше ошибок нет, но я все еще получаю сообщение об ошибке «Недостаточно памяти» в приведенном выше коде. После завершения сортировки на

Sheets("Admin").cbxNotice.Text

выдает ошибку

1 Ответ

0 голосов
/ 12 июня 2019

Я заставил его работать. Проблема была в том, что cbxNotice был списком на листе, на который ссылается мой лист Backpage, проблема была в цикле, который он удаляет с листа Backpage, на который ссылается список, на который ссылается мой цикл, чтобы просто продолжить, он полностью игнорировал переменную До и просто продолжался до тех пор, пока ошибка программы не исчезла «из памяти».

Итак, что я сделал, чтобы все заработало, очистил ссылку из списка и добавил эти значения всписок с кодом макроса

...