Имя: Пароль:
1C
1С v8
Как получить Excel-евские константы?
,
0 dwarfadelic
 
19.04.17
15:45
XlFindLookIn.xlValues, XlLookAt.xlPart и тп?

Если делаешь типа

COMОбъект = Новый COMObject("Excel.Application");
c = COMОбъект.XlFindLookIn.xlValues;

и тп.идет ошибка нет такой переменной.
1 Волшебник
 
модератор
19.04.17
15:51
числа передавай
2 dwarfadelic
 
19.04.17
15:55
Где узнать эти числа? В msdn-не нет.
3 Волшебник
 
модератор
19.04.17
15:57
Excel.XlFindLookIn.xlValues = -4163.
4 dwarfadelic
 
19.04.17
15:58
Телепатия? А XlLookAt.xlPart?
5 Волшебник
 
модератор
19.04.17
15:58
(4) XlLookAt.xlPart = -4123
6 Волшебник
 
модератор
19.04.17
15:58
Учись, студент
7 Optan
 
19.04.17
15:59
(2) Я так смотрю: http://screenshot.ru/5f881ab097c790e6457e7cf2f2980b30

А вообще, можно файл со всеми константами выгрузить из VBA и, при желании, вообще прикрутить к решению)
8 Волшебник
 
модератор
19.04.17
15:59
(5) а, пардон
LookAt.xlWhole = -4123
9 b_ru
 
19.04.17
16:03
Debug.Print XlLookAt.xlPart
В Экселе само собой.
10 dwarfadelic
 
19.04.17
16:17
а если пустое значение?
XlLookAt_xlPart = -4123;
    XlFindLookIn_xlValues = -4163;
    
    Найдено = Диапазон.Find(СтрокаПоиска,,XlFindLookIn_xlValues,XlLookAt_xlPart);

Выдает еррор
11 dwarfadelic
 
19.04.17
16:19
Произошла исключительная ситуация (0x80020005)
12 Волшебник
 
модератор
19.04.17
16:22
13 Волшебник
 
модератор
19.04.17
16:23
В качестве номера последней строки диапазона передано число, отформатированное 1С-кой (с неразрывным пробелом в качестве разделителя разрядов)
14 dwarfadelic
 
19.04.17
16:36
И как с этим бороться?
15 Волшебник
 
модератор
19.04.17
16:38
17 Лефмихалыч
 
19.04.17
16:57
Открываешь эксель, потом громно и четко произносишь в usb-порт:
Alt+F11
F2
18 dwarfadelic
 
19.04.17
17:00
Сделал числа без разрывных пробелов теперь - 0x8002000b
19 HeKrendel
 
19.04.17
17:10
как получить формулу расчета функции?
20 Волшебник
 
модератор
19.04.17
17:13
(18) бывает, чо
21 dwarfadelic
 
19.04.17
17:16
Интересно, что если просто
Диапазон.Find(СтрокаПоиска);

Ошибки нет

Когда
    Найдено = Диапазон.Find(СтрокаПоиска,After,XlFindLookIn_xlValues,XlLookAt_xlPart)

0x8002000b

Если убрать After
Диапазон.Find(СтрокаПоиска,,XlFindLookIn_xlValues,XlLookAt_xlPart);
-
0x80020005
22 dwarfadelic
 
19.04.17
18:01
xlPart = 2
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс