Есть файл с макросами. Есть кнопка с макросом, который выполняет еще кучу макросов (решение не элегантное, но нет времени и желания делать красиво).
При нажатии на кнопку должен выполнится пакет макросов (в основном сортировка) и в результате открыться окно для сохранения csv.
Работает только на половине компов. На некоторых компах сразу появляется ошибка 438. Дебаг показывает ошибку в первой сортировке.
Трудность отладки в том, что на моих компах работает. А у клиентов нет. И надо починить за эти выходные. А тут самоизоляция.
Зависимости от версии офиса и разрядности системы не нашел.
Из загугленых способов решения пробовал удаление файлов .exd. - не помогает.
Сам файл больше 100 кб и не могу загрузить сюда. Доступен по ссылке:
Текст макроса куда отправляет дебаг:
При нажатии на кнопку должен выполнится пакет макросов (в основном сортировка) и в результате открыться окно для сохранения csv.
Работает только на половине компов. На некоторых компах сразу появляется ошибка 438. Дебаг показывает ошибку в первой сортировке.
Трудность отладки в том, что на моих компах работает. А у клиентов нет. И надо починить за эти выходные. А тут самоизоляция.
Зависимости от версии офиса и разрядности системы не нашел.
Из загугленых способов решения пробовал удаление файлов .exd. - не помогает.
Сам файл больше 100 кб и не могу загрузить сюда. Доступен по ссылке:
Текст макроса куда отправляет дебаг:
| Код |
|---|
Sub Sort()
'
' Sort Макрос
'
'
ActiveWindow.SmallScroll Down:=87
Range("Таблица2[#All]").Select
Range("J101").Activate
ActiveWorkbook.Worksheets("Скопируйте заявки сюда").ListObjects("Таблица2"). _
Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Скопируйте заявки сюда").ListObjects("Таблица2"). _
Sort.SortFields.Add2 Key:=Range("Таблица2[Линия]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal *показывает ошибку тут
ActiveWorkbook.Worksheets("Скопируйте заявки сюда").ListObjects("Таблица2"). _
Sort.SortFields.Add2 Key:=Range("Таблица2[Час подачі корму]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Скопируйте заявки сюда").ListObjects("Таблица2"). _
Sort.SortFields.Add2 Key:=Range("Таблица2[Длительность]"), SortOn:= _
xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Скопируйте заявки сюда").ListObjects("Таблица2" _
).Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-114
End Sub
|
