Форум
Вход
Вход
Регистрация
Знания
1С:Предприятие
Инф. технологии
О жизни
Книга знаний
Учебные курсы
Wiki
Поиск
Секции
IT-новости
Веб-мастеринг
Администрирование
Жизнь форума
Наука и технологии
Юмор
Другие секции...
Работа
Обсуждения
Вакансии
О нас
О форуме
Правила
Рейтинг
Карта сайта
Объявления
Контакты
Имя:
Пароль:
Войти
1C
Вывод данных в сводную Ех таблицу
☑
0
Байк
18.08.05
✎
08:08
Мож кто пробовал формировать в Ехеле сводную таблицу из 1С. Поделитесь опытом.
1
Байк
18.08.05
✎
08:53
Видимо никто не пробовал
2
AlexIT
18.08.05
✎
09:00
Пробовали многие. Зайди в поиск, много тем найдешь.
3
OFF
18.08.05
✎
09:05
Ручками можешь в экселе данные для сводной таблицы указать и сформировать её?
Теперь делаем тож самое при включенной записи макроса
Текст макроса в FriendVBA, ну а там в 1с
ЗЫ. FriendVBA
http://www.snif.ru/pages/vba.htm
4
Байк
18.08.05
✎
09:23
Спасибо конечно но глючит этот FriendVBA у меня. У Михайлова почитал тоже чтото гонит
5
427
18.08.05
✎
09:30
гемороя докуа будет... проще в 1С, потом все в эксель
6
Байк
18.08.05
✎
09:39
Нарыл тут ссылку по сабжу
Век живи - век учись. Интеграция экселя в 1С-ке.
Хочу типа ТЗ в Ех и преобразовать там в сводную
7
OFF
18.08.05
✎
09:46
(4) Есть такое дело, но в качестве шаблона часто использую
(6) Хороша такая ссылочка, спасиб!
8
Байк
18.08.05
✎
09:54
Вот еще по сабжу
http://1c.proclub.ru/modules/kb/article.php?storyid=78
Буду думать
9
Байк
18.08.05
✎
10:17
Всем Спасибо. Все получилось. Класс!
10
OFF
18.08.05
✎
10:27
Может покажешь? Если не жалко?
11
Байк
18.08.05
✎
10:38
Типа так на 4 колонки (Сыро еще)
Функция СформироватьСводнуюТаблицу(ТЗ)
Перем Значение;
Попытка
Excel =СоздатьОбъект("Excel.Application");
Исключение
Возврат 0;
КонецПопытки;
Попытка
Excel.Application.Workbooks.Add(1);
Excel.ActiveSheet.Name ="Данные";
//Формируем данные
Для СтрокаТЗ=1 По ТЗ.КоличествоСтрок()Цикл
Для КолонкаТЗ=1 По ТЗ.КоличествоКолонок()Цикл
Значение =ТЗ.ПолучитьЗначение(СтрокаТЗ,КолонкаТЗ);
Excel.ActiveSheet.Cells(СтрокаТЗ+1,КолонкаТЗ).Value =Значение;
Если СтрокаТЗ =1 Тогда
ТЗ.ПолучитьПараметрыКолонки(КолонкаТЗ,"",0,0,Значение,0,"",1);
Excel.ActiveSheet.Cells(1,КолонкаТЗ).Value =Значение;
КонецЕсли;
КонецЦикла;
КонецЦикла;
//Выводим сводную таблицу
СТ = Excel.ActiveSheet.PivotTableWizard;
СТ.SmallGrid = 0;
//1 - По строкам
//2 - По колонкам
//3 - По странищам
//4 - Данные
СТ.PivotFields(1).Orientation = 1;
СТ.PivotFields(2).Orientation = 3;
СТ.PivotFields(3).Orientation = 2;
СТ.PivotFields(4).Orientation = 4;
Excel.ActiveWorkbook.ShowPivotTableFieldList = 0;
Excel.CommandBars("PivotTable").Visible = 0;
Excel.Application.Visible =1;
Исключение
Excel.Quit();
Возврат 0;
КонецПопытки ;
Возврат 1;
КонецФункции //СформироватьСводнуюТаблицу
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование.
Фредерик Брукс-младший
Форум
|
Правила
|
Описание
|
Объявления
|
Секции
|
Поиск
|
Книга знаний
|
Вики-миста