Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Вт Ноя 02, 2010 1:35 pm Заголовок сообщения: |
|
|
Конечно не совпадает
Как же может наименование документа совпадать с наименованием корреспондента (в широком смысле)?
И вообще что-то непонятное у Вас:
1 уровень - корерспондент 2
2 уровень - ОУ
3 уровень - партия
При чем тут документ? |
|
Вернуться к началу |
|
|
Vovan Гость
|
Добавлено: Вт Ноя 02, 2010 8:52 pm Заголовок сообщения: re: |
|
|
а партия что возвращает
RW.AddColumn 10, , ,"5+Дата|1+Документ" в стандартном отчёте выводит то что мне надо...
а 3 уровень - партия .AddColumn 10 при вызове .child(j).child(i).child(l).Value непонятно что. |
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Ср Ноя 03, 2010 9:05 am Заголовок сообщения: |
|
|
Т.е. как это "непонятно что"? ИД партии и возвращает |
|
Вернуться к началу |
|
|
Vovan Гость
|
Добавлено: Ср Ноя 03, 2010 12:33 pm Заголовок сообщения: |
|
|
А как ID документа этой партии получить? Чтоб как для "1+Документ" выдавало? |
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Ср Ноя 03, 2010 1:11 pm Заголовок сообщения: |
|
|
RTFM, RTFM, товарищи...
Как же у партии может быть ИД документа?
Внимательно читаем хелпу на тему AddColumn, после думаем что же такое Партия (Series) и делаем выводы. |
|
Вернуться к началу |
|
|
Vovan Гость
|
Добавлено: Ср Ноя 03, 2010 2:03 pm Заголовок сообщения: |
|
|
Пасиб за хелп... |
|
Вернуться к началу |
|
|
samarin Гость
|
|
Вернуться к началу |
|
|
Vovan Гость
|
Добавлено: Сб Дек 04, 2010 5:21 pm Заголовок сообщения: |
|
|
Так создай листы, как в Excel'e. И на кажждый лист выводи нужную информацию
А вот с сохранением не подскажу ( |
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Вс Дек 05, 2010 1:27 pm Заголовок сообщения: |
|
|
samarin писал(а): | А потом в таком же виде(с вкладками) сохранить как xls |
Нажатием кнопки - никак.
Последнее время использую визуализацию отчетов в ms Excel.
Рекомендую.
Можно очень интересные вещи писАть.
пишу по памяти:
Код: |
set xl = createObject("Microsoft.Excel")
set wb = xl.ActiveWorkBook
set sh = wb.ActiveSheet 'current sheet
set newSh = wb.Sheets.Add("name") 'add new sheet to workbook
newSh.Cell(row,col).Value = "value"
|
|
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Пн Дек 06, 2010 11:17 am Заголовок сообщения: |
|
|
Есть как минимум 2 способа, которые можно использовать в зависимости от сложности поставленной задачи:
1. Переносить все в эксель поячеечно. При необходимости повторять раскраску, форматирование и т.д. Довольно геморно (особенно, учитывая то, что форматирование в акценте и экселе не совпадает )
2. Сохранять каждый шит как хтмл, потом открывать в экселе и "склеивать".
Оба способа требуют некоторого программирования, но ничего сложного в этом нет - один раз написал и пользуйся всю оставшуюся жизнь.
Все необходимое описано в хелпе по экселю, для простоты можно сначала понакликивать макросы и увидеть как это делает сам эксель, а после уже подогнать свое. |
|
Вернуться к началу |
|
|
samarin Гость
|
Добавлено: Вт Дек 14, 2010 5:15 pm Заголовок сообщения: |
|
|
AllexL писал(а): |
Последнее время использую визуализацию отчетов в ms Excel.
Рекомендую.
Можно очень интересные вещи писАть.
|
Интересный способ. Не могли бы Вы скинуть любой,работающий, пример для разбора. |
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Вт Дек 14, 2010 5:22 pm Заголовок сообщения: |
|
|
samarin писал(а): | Интересный способ. Не могли бы Вы скинуть любой,работающий, пример для разбора. |
Код: |
If UCase(oSheet.Name) = "SOURCE" Then
Set sh = oSheet
sh.Activate
Set r = sh.Range("A8")
sh.Range("A8:IV65535").Clear
Set rs = GetDataSP(sh.Range("B5").Value, CDate(sh.Range("B2").Value), CDate(sh.Range("B3").Value))
If rs.State = adStateOpen Then
'If rs.EOF Then
sh.Range("A8").CopyFromRecordset rs
Set pv = Worksheets("Report").PivotTables("СводнаяТаблица1")
pv.PivotTableWizard xlDatabase, "Source!R7C1:R" & (rs.RecordCount + 9) & "C" & rs.Fields.Count
pv.PivotCache.Refresh
Worksheets("Report").Activate
' Else
' MsgBox "Данные отсутствуют"
'End If
Else 'state
MsgBox "проблема получить данные"
End If
Exit For
End If
|
|
|
Вернуться к началу |
|
|
samarin Гость
|
Добавлено: Вт Дек 14, 2010 8:40 pm Заголовок сообщения: |
|
|
а где же Код: | set xl = createObject("Microsoft.Excel") |
и приведенный пример [quote] Код: | If UCase(oSheet.Name) = "SOURCE" Then
Set sh = oSheet
sh.Activate
Set r = sh.Range("A8")
...... | не работает объясните, пожалуйста, как человеку незнающему, но очень желающему разобраться. |
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Вт Дек 14, 2010 10:14 pm Заголовок сообщения: |
|
|
samarin писал(а): | не работает объясните, пожалуйста, как человеку незнающему, но очень желающему разобраться. |
1 вариант был для экспорта в MS Excel (скрипт для Акцента),
2 вариант (вышепреведеннй) - код VBA (скрипт, исполняемый в MS Excel), "затрягивающий" результаты выполнения функции GetDataSP (возвращается ADODB.Recordset) в ЛИСТ, затем на основе этих данных строится маленький кубик (сводная таблица) |
|
Вернуться к началу |
|
|
samarin Гость
|
Добавлено: Пн Дек 20, 2010 10:36 pm Заголовок сообщения: |
|
|
Код: | set xl = createObject("Microsoft.Excel")
set wb = xl.ActiveWorkBook
set sh = wb.ActiveSheet 'current sheet
set newSh = wb.Sheets.Add("name") 'add new sheet to workbook
newSh.Cell(row,col).Value = "value" |
пытаюсь подключить как .avb
в ответ Цитата: | Невозможно создание объекта контейнером ActiveX: 'Microsoft.Excel' |
|
|
Вернуться к началу |
|
|
|