| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сводная таблица в Excel [D7, MSSQL]
SLP © (2006-11-20 10:32:00)Добрый день!
В программе данные запроса кидаю в Excel и строю сводную таблицу. Все сделала через макросы, кот перевела в D7.
Но сейчас понадобилось в уже готовой сводной таблице выделить жирным шрифтом отдельные объекты.
Сделала макрос:
ActiveSheet.PivotTables("СводнаяТаблица1").PivotSelect _
"'сельдь атл '", xlDataAndLabel
With Selection.Font
.Name = "Arial CYR"
.FontStyle = "полужирный"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
В программе написала так:
XL.ActiveSheet.PivotTables('СводнаяТаблица1').PivotSelect('сельдь атл ',0);
пробовала так....
XL.ActiveSheet.PivotTables('СводнаяТаблица1').PivotSelect('сельдь атл ',0) := true;
В VB xlDataAndLabel=0
Но все равно на этой строчке вылетает ошибка: "элемент не найден. Проверьте, что имя введено верно и такой элемент сводной таблицы существует".
Кто делал, подскажите пож-та как правильно перевести макрос?
ANB (2006-11-20 11:59:00) [1]Вообще то ветка к БД отношения не имеет . . .
SLP (2006-11-20 11:55:00) [2]Может быть хоть совет какой-нибудь бы дали...Мне не помешает любая информация.
| |
