Таблица сортировки VBA в другой книге - PullRequest
Новая
       29

Таблица сортировки VBA в другой книге

0 голосов
/ 24 мая 2018

Доброе утро,

У меня есть макрос, который, помимо прочего, сортирует таблицу в другой книге.Вот соответствующие биты кода 

Set wbLSHP = Workbooks("CDU_Enrollee Engagement Tracking Report v2.2.xlsx")
Set wsLSHP = wbLSHP.Worksheets("Sheet1")

"wsLSHP" - это рабочая таблица, где расположена таблица.Таблица с именем «Table1» 

wsLSHP.ListObjects("Table1").Sort.SortFields.Clear
wsLSHP.ListObjects("Table1").Sort.SortFields.add _
    Key:=Range("Table1[[#All],[CHW First Name]]"), SortOn:=xlSortOnValues, _
    Order:=xlAscending, DataOption:=xlSortNormal
With wsLSHP.ListObjects("Table1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

При ее запуске я получаю следующую ошибку: «Ошибка времени выполнения« 1004 »:, ошибка приложения или объекта

Это происходит в следующей строке: 

wsLSHP.ListObjects("Table1").Sort.SortFields.add _
Key:=Range("Table1[[#All],[CHW First Name]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal

Любые идеи о том, что вызывает эту ошибку?

...