|
Поиск и замена в ЭКселе из 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])
???
|
|