.Add2 генерирует ошибку времени выполнения «438»: объект не поддерживает это свойство или метод в Excel VBA - PullRequest
Новая
       16

.Add2 генерирует ошибку времени выполнения «438»: объект не поддерживает это свойство или метод в Excel VBA

0 голосов
/ 18 декабря 2018

Я получаю следующую ошибку:

Ошибка времени выполнения '438': объект не поддерживает это свойство или метод

со следующим кодом

ActiveWorkbook.Worksheets("Backend 3").Sort.SortFields.Add2 Key:=Range("A2") _
            , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal"

Эта ошибка возникает на одном ноутбуке, тогда как в другой системе у меня нет проблем.В обеих системах это версия 2016 года.

Это остальная часть моего кода: 

Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Backend 3").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Backend 3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Backend 3").Sort.SortFields.Add2 Key:=Range("A2") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Backend 3").Sort
        .SetRange Range("A2:A1001")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A10").Select
    ActiveWorkbook.Save
    Sheets("Backend 3").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Backend 2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("E11").Select
    ActiveWorkbook.Save
    Range("A1").Select

1 Ответ

0 голосов
/ 18 декабря 2018

Вы проверили, что на машине нет пропущенных ссылок с проблемами.Если он работает на одном компьютере, но не на другом, то должно быть что-то «не так» с одним компьютером или с копией электронной таблицы.

Используете ли вы явную опцию?

Есть ли у васскомпилировал код?

Скопируйте лист с машины, на которой он работает, на ту, на которой он не работает.

Версии Excel 2016 одинаковые?

Может бытьофисная установка нуждается в ремонте.

Лично я бы избавился от всех этих «активных» и «выбирающих» и определил бы надлежащие объекты для работы.

...