|
|
|
Вывод данных в сводную Ех таблицу | ☑ | ||
|---|---|---|---|---|
|
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
|
||||
|
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; КонецФункции //СформироватьСводнуюТаблицу |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |