Replace в Excel

Katya

Делаю выгрузку в Excel через OLE. Существуют уже введеные шаблоны, типа:
№ завода [Завод]
Поставщик [Поставщик] и т.д.
Далаю так:
call method of gs_cell 'Replace'
EXPORTING
#1 = text_find
#2 = text_string
#3 = 2
#4 = 1.
Все красиво заменяет. Но дело в том, что шаблонов для моего документа может быть много, пользователь сам выбирает нужный, а в одних может присутствовать один набор полей, в других другой. Обработка вывода одна на всех. Так вот, когда данные для замены не найдены Excel выдает ошибку "Подлежащие замене данные не найдены..." которая не исчезает, пока не нажмешь "ОК". Некрасиво как-то. Кто-то знает как с этим бороться?

Parazit

Katya написал(а):

Так вот, когда данные для замены не найдены Excel выдает ошибку "Подлежащие замене данные не найдены..." которая не исчезает, пока не нажмешь "ОК".

Типа, вот так:

Code:

Set property of App 'DisplayAlerts' = 0.

И прочее можешь посмотреть в моих модулях выгрузки. Конкретней по Екселю в файле ZWWWFILLFORM в форме FORM FillExcelForm

Katya

Спасибо большое! Помогло

Правила форума

Replace в Excel

Кто сейчас на конференции