Имя: Пароль:
1C
1С v8
Поиск и замена в ЭКселе из 1С
0 mzelensky
 
18.05.12
12:41
Доброго всем!
Задача - взять экселевский шаблон и заменить в нем определенные ключевые параметры на необходимые значения. Функцию поиска уже освоил:

Эксель.Sheets(1).Range("A1:A1").find("Заказ",Эксель.Sheets(1).Range("A1"), -4163, 2, 1);

Интересует, есть ли функция поиска и замены. Поюзав поиск нашел команду "Replace", но что-то ума не могу дать. Подскажите плиз!

П.С. интересует именно объектный доступ, а НЕ ЧЕРЕЗ МАКРОСЫ!
1 sash-ml
 
18.05.12
12:43
макросы через объекты работают
2 Wobland
 
18.05.12
12:45
я вот так для ворда делал:
   Replacement=Word.ActiveDocument.Range().Find;
   Replacement.ClearFormatting();
   Replacement.Forward=True;
   Replacement.Execute("{ФИОКлиента}", , , , , , , , , ФИОКлиента, 2);
3 mzelensky
 
18.05.12
12:52
(2) для ворда и у меня есть:

Замена = Док.Content.Find;
           Замена.Execute("<<НаименованиеКонтрагента>>", Ложь, Истина, Ложь, , , Истина, , Ложь, ТД.ссылка.НаименованиеПолное);
           

Мне для экселя нужно
4 mzelensky
 
18.05.12
12:53
(1) я имел ввиду, что я не хочу писать свои макросы в книгу экселя.
5 Wobland
 
18.05.12
12:54
(4) а ты запиши. слямзи код и удали
6 mzelensky
 
18.05.12
13:01
(5) не хочу я их писать. Мне нужно очень много реквизитов там заменять (порядка 50) - если писать под каждый макрос - это пипец.
7 sash-ml
 
18.05.12
13:07
Function Replace(What, Replacement, [LookAt], [SearchOrder], [MatchCase], [MatchByte], [SearchFormat], [ReplaceFormat]) As Boolean
   Member of Excel.Range
8 mzelensky
 
18.05.12
14:08
(7) и куда это?
9 mzelensky
 
18.05.12
14:09
(8)+ ТАк:

Эксель.Sheets(1).Range("A1:A1").Replace("что ищу", "что подставляю", [LookAt], [SearchOrder], [MatchCase], [MatchByte], [SearchFormat], [ReplaceFormat])

???