ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт данных из PivotTable подчиненной формы в Excel
12 сообщений из 12, страница 1 из 1
Экспорт данных из PivotTable подчиненной формы в Excel
    #40089973
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
Коллеги, всем доброго вечера. Возникла такая проблема:
На главной форме есть подчиненная PivotTable. Одно поле на строки, одна на столбцы, три на в области данных. К ней вопросов нет - данные отображаются и считаются как надо.
Необходимо эту таблицу экспортировать в Excel. Проблема заключается в том что не могу понять с помощью чего вытащить информацию из полей в области данных. Смог решить вопрос только в экспорте названий строк и столбцов.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim PG as PivotTable
Dim oExcel,oBook,oSheet as Object

Set oExcel=CreateObject("Excel.Application")
Set oBook=oExcel.Workbooks.Add
Set oSheet=oBook.Worksheets(1)
....
Set PG=Form_FpSales.PivotTable
'Название поля в области столбцов
  oSheet.Cells(4,12).Value=PG.ActiveData.ColumnAxis.Fields(0).Caption
'Первое значение из поля в области столбцов
  oSheet.Cells(4,12).Value=PG.ActiveView.FieldSets(0).Member.ChildMembers(0).Caption
'Название поля в области строк
  oSheet.Cells(6,9).Value=PG.ActiveData.RowAxis.Fields(0).Caption
'Заполнение данными из поля в области строк
For i=0 to PG.ActiveView.RowAxis.FieldSets(0).Member.ChildMembers.Count-1 
     oSheet.Cells(7+i,9).Value=PG.ActiveView.RowAxis.FieldSets(0).Member.ChildMembers(i).Caption
Next i
' Вариант отображения названий полей в области данных.
  oSheet.Cells(6,12).Value=PG.ActiveData.DataAxis.Totals.Item(0).Caption
  oSheet.Cells(6,13).Value=PG.ActiveData.DataAxis.Totals.Item(1).Caption
  oSheet.Cells(6,14).Value=PG.ActiveData.DataAxis.Totals.Item(2).Caption


И на этом все. Не могу достучаться до самих значений в полях области данных. Может кто сталкивался с такой задачей или есть ссылка с описанием как работать с этим объектом - помогите пожалуйста!
Спасибо!
...
Рейтинг: 0 / 0
10.08.2021, 23:30
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40089980
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
MaxFM
...На главной форме есть подчиненная PivotTable. Одно поле на строки, одна на столбцы, три на в области данных..(это не понятно от слова совсем)
...Необходимо эту таблицу экспортировать в Excel.(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
...
Рейтинг: 0 / 0
11.08.2021, 01:37
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40089984
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
ПыСы:В примере изменяется шрифт-"подпилите" как Вам надо
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub cmb_Click()
Dim objExcel As Object, wb As Object, ws As Object
DoCmd.TransferSpreadsheet acExport, 8, "клиенты", "D:\F.xls"
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True 'False в фоновом режиме-разремить wb.Close,а true активирует окно-заремить wb.Close
Set wb = objExcel.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet
ws.Cells.Font.Name = "arial" 'или блок with
ws.Cells.Font.Size = 10
ws.Cells.Font.Bold = False
'wb.Close (True)
End Sub
...
Рейтинг: 0 / 0
11.08.2021, 01:55
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40090174
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
sdku, на главной форме есть подчиненная которая отображается ввиде сводной таблицы. Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме. Мне не надо выгружать в эксель таблицу-источник, мне надо выгрузить именно сводную таблицу в таком же виде как она отображается на главной форме.
...
Рейтинг: 0 / 0
11.08.2021, 22:48
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40090181
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Для тех кто в танке повторяю:
sdku
...(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
MaxFM
...Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме....
А что мешает использовать в качестве источника параметрический\перекрестный запрос в виде "сводной таблицы", после нажатия кнопки применить параметры, задаваемые в главной форме, экспортировать его в Ёксель и уже там, в соответствии с Вашими требованиями, "допилить"
...
Рейтинг: 0 / 0
12.08.2021, 02:41
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40091614
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
sdku
Для тех кто в танке повторяю:
sdku
...(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
MaxFM
...Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме....
А что мешает использовать в качестве источника параметрический\перекрестный запрос в виде "сводной таблицы", после нажатия кнопки применить параметры, задаваемые в главной форме, экспортировать его в Ёксель и уже там, в соответствии с Вашими требованиями, "допилить"


"-Ребята, как управлять экскаватором чтобы выкопать яму?
- зачем тебе экскаватор - копай руками. Просто же!!!!"
Вот как то так выглядит Ваш ответ.
Я не просил мне изменить вариант решения проблемы - я просил дать ссылку на инструкцию к данному объекту.
Перекрестный запрос не подходит потому что там в поле данных можно только одно поле вставить, а у меня там 2+итоги.
Вот и прошу помощи в пользовании данным объектом а не альтернативные решения.
...
Рейтинг: 0 / 0
18.08.2021, 21:14
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40091615
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
MaxFM,
Успехов в "удалении зуба через зад"
О каком таком объекте Вы ведете речь?
А в перекрестном запросе,в столбце "значение", вполне допустимо выражение типа:sum(поле1) & "\" & sum(поле2)
С анекдотом Вы перепутали: Вам предлагается экскаватор,но Вы предпочитаете лопату.Удачи
...
Рейтинг: 0 / 0
18.08.2021, 21:34
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40091622
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
sdku
MaxFM,
О каком таком объекте Вы ведете речь?

PivotTable
...
Рейтинг: 0 / 0
18.08.2021, 22:20
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40091634
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
MaxFM,
PivotTable по русски будет всего-навсего Сводная таблица/то бишь перекрестный запрос-объект БД и о какой такой "инструкции к данному объекту" может идти речь
а объект в программировании это совсем другое:
"Объе́кт в программировании — некоторая сущность в цифровом пространстве, обладающая определённым состоянием и поведением, имеющая определённые свойства (атрибуты) и операции над ними (методы). Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта."
...
Рейтинг: 0 / 0
19.08.2021, 00:24
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40091635
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
sdku
MaxFM,
PivotTable по русски будет всего-навсего Сводная таблица/то бишь перекрестный запрос-объект БД и о какой такой "инструкции к данному объекту" может идти речь
а объект в программировании это совсем другое:
"Объе́кт в программировании — некоторая сущность в цифровом пространстве, обладающая определённым состоянием и поведением, имеющая определённые свойства (атрибуты) и операции над ними (методы). Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта."


Посмотри мой первый пост. Там определение переменной PG как PivotTable. Это из пакета OWC 11 вроде. Его свойства, точнее их описание я и пытаюсь найти.
...
Рейтинг: 0 / 0
19.08.2021, 00:30
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40092353
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
MaxFM
sdku
MaxFM,
PivotTable по русски будет всего-навсего Сводная таблица/то бишь перекрестный запрос-объект БД и о какой такой "инструкции к данному объекту" может идти речь
а объект в программировании это совсем другое:
"Объе́кт в программировании — некоторая сущность в цифровом пространстве, обладающая определённым состоянием и поведением, имеющая определённые свойства (атрибуты) и операции над ними (методы). Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта."


Посмотри мой первый пост. Там определение переменной PG как PivotTable. Это из пакета OWC 11 вроде. Его свойства, точнее их описание я и пытаюсь найти.
как вариант можно подключить Microsoft Excel и посмотреть там все свойства. Скорее все, они идентичны.
Ну а когда вы ставите точку после PG, вам не выдаются варианты из списка?

З.Ы. F2 никто не отменял.
...
Рейтинг: 0 / 0
20.08.2021, 19:25
| Ответить | Цитировать | Написать  
Экспорт данных из PivotTable подчиненной формы в Excel
    #40092376
MaxFM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaxFM
Гость
Прогер_самоучка
MaxFM
пропущено...


Посмотри мой первый пост. Там определение переменной PG как PivotTable. Это из пакета OWC 11 вроде. Его свойства, точнее их описание я и пытаюсь найти.
как вариант можно подключить Microsoft Excel и посмотреть там все свойства. Скорее все, они идентичны.
Ну а когда вы ставите точку после PG, вам не выдаются варианты из списка?

З.Ы. F2 никто не отменял.


Варианты выдаются, но не понятно что для чего
f2 не помогает - справки по данному объекту в access нет
А вот идея проверить информацию по нему в Excel это идея.!!!
...
Рейтинг: 0 / 0
20.08.2021, 22:54
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт данных из PivotTable подчиненной формы в Excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=40092376&tid=1609616]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 124ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 13ms
total:  226ms
созд. / загр.: 226ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]