VBA: ListObjects.DataBodyRange.ClearContents не работает в 2010 - PullRequest
0 голосов
/ 04 июля 2018

Я создал файл Excel и заполнил его макросами. Я разработал его в 2016 году, но пользователь, который будет его использовать, работает с Excel 2010. (Да, я знаю, как глупо с моей стороны)

В любом случае, вот код

Sub Clear()
    Application.ScreenUpdating = False
    PubVarSet                                         'This just calls a method that sets all public objects. i.e. listobjects and worksheets
    FullReport.AutoFilter.ShowAllData
    FullReport.DataBodyRange.ClearContents
    Dim asd As Integer
    If FullReport.ListRows.Count > 1 Then
        FullReport.DataBodyRange.Offset(1, 0).Resize(FullReport.DataBodyRange.Rows.Count - 1, _
                                                     FullReport.DataBodyRange.Columns.Count).Rows.Delete
    End If
    Cells(6, FullReport.ListColumns.Count).Interior.Color = RGB(255, 255, 255)
    Application.ScreenUpdating = True
End Sub

Все макросы работают в 2016 году, но когда я использую 2010, он выдает ошибку

Ошибка времени выполнения «1004»: Ошибка метода ClearContents класса Range.

Любые возможные обходные пути? TIA

edit: Если вам интересно, в таблице есть записи внутри

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...