Excel VBA, сортировка, сохранение, закрытие, открытие

Ignas Anfalovas спросил: 03 ноября 2018 в 09:22 в: excel

У меня есть два файла Excel, file1.xlsm и file2.xlsm; У меня есть таблица данных в одной, и еще что-то в другой. Во втором файле у меня также есть кнопка, которая открывает первый файл.

В первом файле у меня есть кнопка, которая сортирует все данные, используя столбец A в качестве ключа, и вторую кнопку для сохранения и выхода.

Мой код для сортировки:

Private Sub CommandButton2_Click()
    Dim lRow As Long
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    With ActiveSheet.Sort
       .SortFields.Add Key:=Range("A3"), Order:=xlAscending
       .SetRange Range("A3:AF" & lRow)
       .Header = xlNo
       .Apply
    End With
End Sub

Проблема в том, что после сортировки, сохранения и выхода я не могу повторно открыть ту же книгу через VBA (кнопка вызывает ничего такого); Я могу нажать на файл, затем он открывается, но выдает ошибку, что возникли проблемы, но Excel может восстановиться. Ошибка в журнале ошибок:

Обнаружены ошибки в файле 'C: \ file1.xlsm'
Удаленные записи: Сортировка из
/xl/worksheets/sheet1.xml part

Кнопка для сохранения - это просто закрытие книги с SaveChanges:=True.

Почему это происходит и как это можно исправить?

0 ответов