Excel тормозит

Обратился к нам клиент с вопросом: тормозит Excel, причем именно на одном конкретном листе. Все остальные листы в той же книге работают нормально. Анализ (и Google) дал прекрасную ссылку — правда к тому времени мы уже догадались грохнуть огромный файл drawings внутри архива xlsx, но макрос не менее ценен! Суть проблемы в огромном количестве пустых объектов типа Shape. Нужно их удалить и будет всем счастье!

Sub DeleteAllTextBox()
Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
oSh.Delete
Next oSh
End Sub

Сделали работу (печать анкет для открытия счетов Хантымансийский банк)

Вот и запустили небольшой проект. Из приложения 1С: Зарплата и управление персоналом 8.2 — подготовка в электронном виде анкет на открытие лицевых счетов в Ханты-мансийском банке. Выгружается сама анкета (xls), список анкет в формате банка (txt), печатается список сотрудников с паспортными данными.

Заполняются все значащие поля анкеты, данные по которым есть в базе ЗиУП.

Решение полезно, когда количество открываемых счетов достаточно велико и заполнять анкеты вручную весьма трудоемкое занятие.

В планах: загрузка лицевых счетов обратно в программу, выгрузка документа на зачисление заработной платы.

Аналогичные решения у нас есть для: банка УралСиб, Старбанк, Альфабанк.