Имя: Пароль:
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;
КонецФункции //СформироватьСводнуюТаблицу
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.