Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Соединение и сводная таблица. EXCEL / 13 сообщений из 13, страница 1 из 1
10.12.2015, 14:52
    #39124990
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Всем привет.
Есть Excel-файл, который содержит лист со сводной таблицей. Источником случит MS-куб.
Мне необходимо макросом пересоздавать подключение. Но после его удаления, сводная таблица перестает быть таковой. Что логично.
Подскажите как быть в такой ситуации?


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub del_Connect()
    'Удаляю так:
    For i = 1 To ActiveWorkbook.Connections.Count
    ActiveWorkbook.Connections.Item(1).Delete
    Next
    
    Sheets.Add
    'Создаю подключение
    Workbooks("Профиль склада Иваново v1.xlsm").Connections.Add2 "Подключение", "", "OLEDB;Provider=MSOLAP.6;Integrated Security=SSPI;Persist Security Info=True;Data Source=bi-ssas;Initial Catalog=gb_fr", "ПрофильСклада", 1
End Sub
...
Рейтинг: 0 / 0
10.12.2015, 15:25
    #39125047
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Yagrus2,

Попробуйте что-то вроде:
Код: vbnet
1.
2.
3.
With Workbooks("Профиль склада Иваново v1.xlsm")
    If .PivotCaches.Count > 0 Then .PivotCaches(1).Connection = sCon
End With


где sCon - строка нового подключения.
...
Рейтинг: 0 / 0
10.12.2015, 18:22
    #39125227
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
The_Prist,
Пытаюсь заполнить переменную, но сталкиваюсь в проблемой
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub ReCon()
    'Создаю подключение
    Workbooks("Профиль склада Иваново v1.xlsm").Connections.Add2 "Подключение", "", "OLEDB;Provider=MSOLAP.6;Integrated Security=SSPI;Persist Security Info=True;Data Source=bi-ssas;Initial Catalog=gb_fr", "ПрофильСклада", 1
    'Подсчитываю подключения
    Co = ThisWorkbook.Connections.Count
    MsgBox Co
    'Хочу получить значение для переменной sCon, но то что получаю не подходит - Имя
    MsgBox ThisWorkbook.Connections.Item(ThisWorkbook.Connections.Count) 
      
End Sub



Подскажите, как получить строку?
...
Рейтинг: 0 / 0
10.12.2015, 18:25
    #39125231
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Yagrus2,

"OLEDB;Provider=MSOLAP.6;Integrated Security=SSPI;Persist Security Info=True;Data Source=bi-ssas;Initial Catalog=gb_fr"
а это не подходит?
.PivotCaches(1).Connection = "OLEDB;Provider=MSOLAP.6;Integrated Security=SSPI;Persist Security Info=True;Data Source=bi-ssas;Initial Catalog=gb_fr"

Ну и вообще хотелось бы уточнить:
1. В чем причина пересоздания подключения?
2. Как это подключение создается вообще. Кодом, руками?
...
Рейтинг: 0 / 0
11.12.2015, 10:47
    #39125617
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
The_Prist,
В EXCEL-е руками создано подключение к MS-кубу.
На основе КУБА создан макет отчета - сводная таблица.

Одна из мер (DeltaНакопительно) хранится в ROLAP секции. Это значит, что куб не хранит в себе ее значения, а просто отслеживает изменения реляционной таблицы, в которой она(эта мера) и хранится. То есть, если в SQL-таблице меняется мера-DeltaНакопительно, то пользователь должен заметить изменения в отчете. Причем процессить куб не нужно. Достаточно на клиенте нажать Refresh.

Если в качестве клиента используется Excel, то Refresh не помогает.
Но если заново создать подключение к тому же MS-кубу, то изменение будет видно.
И получается что: есть два подключения к одному объекту(КУБу), на двух листах одинаковые макеты отчетов(сводные таблицы), а информация в них разная.

Обновление кэша у Excel не помогает.
Код: vbnet
1.
ActiveWorkbook.PivotCaches(1).RefreshOnFileOpen = True
...
Рейтинг: 0 / 0
11.12.2015, 11:14
    #39125648
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Yagrus2,

там может в свойствах сводной таблицы отключить сохранение данных?
...
Рейтинг: 0 / 0
11.12.2015, 13:46
    #39125819
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
An12Yagrus2,

там может в свойствах сводной таблицы отключить сохранение данных?
Можете показать на скрине ,что вы имеете ввиду?
...
Рейтинг: 0 / 0
11.12.2015, 14:26
    #39125869
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
политики фирмы не позволяют выгружать рисунки

Параметры сводной таблицы\ Данные\ Сохранять исходные данные вместе с файлом - убрать галочку.

в сводных таблицах со связью с OLAP пункты чуть отличаются, но под рукой их нет.
...
Рейтинг: 0 / 0
11.12.2015, 15:31
    #39125928
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
An12,
Эта настройка по умолчанию отключена.
...
Рейтинг: 0 / 0
11.12.2015, 16:26
    #39125987
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Yagrus2,

тут обсуждение было -->
...
Рейтинг: 0 / 0
11.12.2015, 16:29
    #39125989
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
еще -->
...
Рейтинг: 0 / 0
11.12.2015, 16:39
    #39125999
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Есть надстройка MS Power Query для Excel. Там есть функция очистки кэша. да и провайдеры немного отличаются от стандартных.
...
Рейтинг: 0 / 0
11.12.2015, 18:39
    #39126133
Yagrus2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соединение и сводная таблица. EXCEL
Решил исходную проблему настройкой на стороне MS-куба.
Для наглядности привел скриншоты.
Настраиваемые объекты: Секция - "ДельтаНакопительно" и ее составляющая "T FACT Operations Mdx Cumulative Total Профиль Склада".
И там и там нужно указать: StorageMode -> ROLAP и ProactiveCaching -> Rolap в реальном времени.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Соединение и сводная таблица. EXCEL / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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