Показать сообщение отдельно
Старый 14.05.2010, 11:15  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Цитата:
Сообщение от Ivanhoe Посмотреть сообщение
Не зная значений, нужно знать именнованные константы .
Собственно, весь мой пример сделан по аналогии со стандартом. Видимо, в русском MS или кто там делал эту функциональность о таких константах не знают =)
Научим всех! Тем более, что это довольно просто. Даю три направления:

A. О константах можно узнать через обозреватель объектов в Excel:

1. Открываем Excel и по Alt+F11 идём в редактор VisualBasic
2. В окне отладки (Immediate) выполняем команду:
Код:
ActiveSheet.OLEObjects.Add("OWC10.PivotTable.10").Select
Команда поместит на рабочий лист ActiveX (он нам в принципе сейчас не нужен), НО! при этом добавится правильная ссылка на библиотеку в Tools\References (а вот это нам и нужно!)

3. Нажимаем F2 для вызова ObjectBrowser и в первом поле со списком выбираем библиотеку: OWC10
4. Чуть ниже в списке Classes встаем на <globals> и в правом списке Members изучаем константы (см.рисунок). С префиксом pl - константы для PivotTable, c ss - для Spreadsheet.

Название: PivotObjectBrowser.JPG
Просмотров: 1169

Размер: 44.8 Кб

B. А можно через хелп-файл OWCVBA10.CHM:

Нажмите на изображение для увеличения
Название: PivotAddTotal.JPG
Просмотров: 417
Размер:	82.5 Кб
ID:	5827

C. Наконец, можно через MSDN: http://msdn.microsoft.com/en-us/libr...ffice.10).aspx