Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт данных из PivotTable подчиненной формы в Excel / 12 сообщений из 12, страница 1 из 1
10.08.2021, 23:30
    #40089973
MaxFM
MaxFM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
Коллеги, всем доброго вечера. Возникла такая проблема:
На главной форме есть подчиненная 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
| Ответить | Цитировать | Написать  
11.08.2021, 01:37
    #40089980
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
MaxFM
...На главной форме есть подчиненная PivotTable. Одно поле на строки, одна на столбцы, три на в области данных..(это не понятно от слова совсем)
...Необходимо эту таблицу экспортировать в Excel.(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2021, 01:55
    #40089984
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
ПыСы:В примере изменяется шрифт-"подпилите" как Вам надо
Код: 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, 22:48
    #40090174
MaxFM
MaxFM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
sdku, на главной форме есть подчиненная которая отображается ввиде сводной таблицы. Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме. Мне не надо выгружать в эксель таблицу-источник, мне надо выгрузить именно сводную таблицу в таком же виде как она отображается на главной форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.08.2021, 02:41
    #40090181
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
Для тех кто в танке повторяю:
sdku
...(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
MaxFM
...Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме....
А что мешает использовать в качестве источника параметрический\перекрестный запрос в виде "сводной таблицы", после нажатия кнопки применить параметры, задаваемые в главной форме, экспортировать его в Ёксель и уже там, в соответствии с Вашими требованиями, "допилить"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.08.2021, 21:14
    #40091614
MaxFM
MaxFM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт данных из PivotTable подчиненной формы в Excel
sdku
Для тех кто в танке повторяю:
sdku
...(Ну и экспортируйте-в чем проблема? Создайте запрос который будет отбирать нужные данные и экспортируйте его методом DoCmd.TransferSpreadsheet)
MaxFM
...Рекордсет у нее пустой, формируется после задачи условий и нажатии кнопки на главной форме....
А что мешает использовать в качестве источника параметрический\перекрестный запрос в виде "сводной таблицы", после нажатия кнопки применить параметры, задаваемые в главной форме, экспортировать его в Ёксель и уже там, в соответствии с Вашими требованиями, "допилить"


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

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


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


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

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


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

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


Варианты выдаются, но не понятно что для чего
f2 не помогает - справки по данному объекту в access нет
А вот идея проверить информацию по нему в Excel это идея.!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт данных из PivotTable подчиненной формы в Excel / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 747ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%A2%D0%B0%D1%82%D1%8C%D1%8F%D0%BD%D0%B0_%D0%9A]:
 0ms
get settings:
 7ms
get forum list:
 13ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 133ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 499ms
total:  747ms
x
x
Закрыть


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