Имя: Пароль:
1C
1С v8
ActiveDocument Excel Поиск и замена
, ,
0 Cancell
 
22.08.13
14:37
F1 плз.

С вордом все работает, там через content, а вот как в экселе правильно сделать поиск и замену? Делаю так, но при замене выскакивает ошибка "Подлежащие замене данные не найдены. Проверьте правильность указания условий поиска и параметров форматирования. Если вы уверены что в этой книге есть данные, удовлетворяющие заданным условиям, то, вероятно, эти данные находятся на защищенном листе..." Данные точно есть, и лист не защищен..

    АктивныйДокумент = ПолучитьМакет(ИмяМакета);
    MSWord = АктивныйДокумент.Получить();
    Документ = MSWord.Application.Workbooks(1);
    Документ.Activate();
    Документ.Worksheets(1).Activate();

Документ.ActiveSheet.UsedRange.Replace(ЧтоЗаменяем,НаЧтоЗаменяем);
1 manyak
 
22.08.13
14:44
интерактивно без кода (ручками) замена работает?
2 Cancell
 
22.08.13
15:42
(1) Да, я как раз там и вставлял шаблоны для замены
3 manyak
 
22.08.13
15:48
Значит "ЧтоЗаменяем,НаЧтоЗаменяем" в этих переменных не то что нужно лежит....
4 Cancell
 
22.08.13
15:49
(3) текстовые строки, то что ищем в макете есть.
5 manyak
 
22.08.13
15:56
так попробуй:
Документ.Worksheets(1).UsedRange.Replace(ЧтоЗаменяем,НаЧтоЗаменяем);
6 Cancell
 
22.08.13
16:02
(5) не, та же фигна, еще кст в конце такую ошибку дают "Ошибка при вызове метода контекста (Replace): Произошла исключительная ситуация (0x80020003)
"
7 manyak
 
22.08.13
16:12
а так:
Документ.Worksheets(1).UsedRange.Replace(ЧтоЗаменяем,НаЧтоЗаменяем,,,,,,);
хотя мало вероятно.... все остальные параметры не обяз.
8 manyak
 
22.08.13
16:13
проверь точно у тя эксель :)
сообщить (Application.Name);
9 manyak
 
22.08.13
16:15
вот так прально:
MSWord.Application.Name
10 Cancell
 
22.08.13
16:16
(8) Ага - "Microsoft Excel"
11 Cancell
 
22.08.13
16:19
Наверное придется так делать - http://infostart.ru/public/88055/
12 manyak
 
22.08.13
16:20
Workbooks(1).name проверь малоли несколько открытых книг висит и экземпляров экселя
13 manyak
 
22.08.13
16:21
и в дисп. процессов мож висит левых экселей - прибей все
14 Cancell
 
22.08.13
16:39
(12) в точку! ваще какой-то другой воркбук... ппц, я когда то химичил со скриптами и у меня всегда при открытии экселя открывается непонятный экземпляр... теперь буду разбираться как убить его, спасибо!!!