Имя: Пароль:
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) в точку! ваще какой-то другой воркбук... ппц, я когда то химичил со скриптами и у меня всегда при открытии экселя открывается непонятный экземпляр... теперь буду разбираться как убить его, спасибо!!!
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn