Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 

Страницы: 1 2 След.
Поиск
Поиск пары в диапазоне
... наткнулся еще на один нюанс. Количество пар из запроса не влазит на лист... их получилось у меня аж 7 млн....:( понял как закинуть данные из sql запроса в сводную таблицу через recordset... но там получается только 4 поля... а как туда добавить проверку групп ума не приложу. Думаю лучше из sql запроса данные передать в массив,...
Изменен: 29 Сен 2013
Читать сообщение на форуме или сайте.
Как создать сводную таблицу из нескольких листов Excel
... несколько листов в книге, на каждом листе таблица (структура таблиц должна быть одинакова). Макрос собирает данные из всех таблиц в один Recordset и загружает его в сводную таблицу. При изменении данных достаточно обновить сводную таблицу нажатием на кномпочку. Надеюсь данное решение облегчит вам создание ...
Изменен: 6 Окт 2011
Читать сообщение на форуме или сайте.
Как перезаписать PivotCache у существующей PivotTable из recordset ?
Автор: Troglodit. Доброго дня, столкнулся с такой проблемой. Просьба помочь. Есть ADODB.Recordset созданный с помощью  SQL запроса. Есть сводная таблица (Pivot_Table1) созданная из этого Recordset  и в последсвии руками настроеная (фильтра, области значений, колонки, строки). Но нужно переодически обновлять ее источник данных. Для это заново ...
Изменен: 2 Окт 2017
Читать сообщение на форуме или сайте.
Как получить данные из PivotCash ?, Глобально хочу получить список уникальных данных по имени поля Сводной таблицы
Автор: Troglodit. Почему то конструкция типа этого не работает. Dim pc as PivotCache Dim rs as Recordset 'пробовал и ADODB.Recordset pc = shSvod1.PivotTables("СводнаяТаблица1").PivotCache 'Ошибок нет Set rs = pc.Recordset 'Ошибок нет rs.MoveFirst 'Ошибка что объект не найден
Изменен: 18 Сен 2017
Читать сообщение на форуме или сайте.
Сводная таблица на основе двумерного массива
Автор: anvg. Можно, по идее, только не через массив, а через PivotCache.Recordset задать собственную таблицу Recordset, как результат некоторой выборки. Только сводная в этом случае не будет обновляться. Как пример для одной из создаваемых таблиц (http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=51378&MID=426992&PAGEN_1=1#message426992) ...
Изменен: 25 Окт 2015
Читать сообщение на форуме или сайте.
Сводная таблица OLEDB, Заполнение сводной таблицы данными из sql server compact
Автор: idShura. Подскажите пожалуйста как получить данные из sql server compact 3.5 и засунуть их в сводную таблицу? Пока научился только доставать данные в recordset: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim cmd As New ADODB.Command Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5; Data Source= ...
Изменен: 28 Окт 2015
Читать сообщение на форуме или сайте.
Сводная таблица OLEDB
...?PAGE_NAME=search&tags=&q=Recordset+%D0%B2+%D1%81%D0%B2%D0%BE%D0%B4%D0%BD%D1%83%D1%8E+%D1%82%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D1%83&FORUM_ID%5B%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8) делали Как поставить заполненый Recordset в источник сводной таблицы (http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=65748&TITLE_SEO=65748-kak-postavit-zapolnenyy-recordset-v-istochnik-svodnoy-tablitsy&MID=551496&tags=&q=Recordset+%D0%B2+%D1%81%D0%B2%D0%BE%D0%B4%D0%BD%D1%83%D1%8E+%D1%82%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D1%83&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message551496)
Изменен: 28 Окт 2015
Читать сообщение на форуме или сайте.
CopyRecordset. Ошибка в методе
... cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnnConn With cmdCommand .CommandText = sSQL .CommandType = adCmdText .Execute End With ' Открытие рекордсета Set Rs = New ADODB.Recordset Set Rs.ActiveConnection = cnnConn Rs.Open cmdCommand ' еренос данных из рекордсета в сводную таблицы (например) Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlExternal) Set objPivotCache.Recordset = Rs With objPivotCache .CreatePivotTable TableDestination:=Range("A3"), _ ...
Изменен: 18 Фев 2008
Читать сообщение на форуме или сайте.
CopyRecordset. Ошибка в методе
... cmdCommand = New ADODB.Command Set cmdCommand.ActiveConnection = cnnConn With cmdCommand .CommandText = sSQL .CommandType = adCmdText .Execute End With ' Открытие рекордсета Set Rs = New ADODB.Recordset Set Rs.ActiveConnection = cnnConn Rs.Open cmdCommand ' еренос данных из рекордсета в сводную таблицы (например) Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _ SourceType:=xlExternal) Set objPivotCache.Recordset = Rs With objPivotCache .CreatePivotTable TableDestination:=Range("A3"), _ ...
Изменен: 18 Фев 2008
Читать сообщение на форуме или сайте.
Как поставить заполненый Recordset в источник сводной таблицы
Автор: Vitallic. Добрый день, ув. форумчане Есть ли возможность обработать обьект Recordset "на лету" и выгрузить данные на лист в уже нужном виде пока есть вот такой код, который не отрабатывает в части SourceData:=rs. Возможно ли обойти проблему?Sub test27() Dim strConn$, strSQL$, rs As Object,...
Изменен: 27 Апр 2015
Читать сообщение на форуме или сайте.
Сводная таблица с данными из Oracle
... что пересоздавать объекты каждый раз непозволительная роскошь.  Вот тут: Set pt = ws.PivotTables("СводнаяТаблица5")   Set pc = pt.PivotCache  Set pc.Recordset = rs pc.Refresh я получаю в pt - сводную таблицу, в pc - ее кэш, а на строке Set pc.Recordset = rs(rs - датасет с данными) получаю ошибку. Не знаю как ее решить.
Изменен: 11 Авг 2015
Читать сообщение на форуме или сайте.
Использование ODBC для подключения к SQL Server
... подключения к SQL Server}{post}Можно использовать ADO в Source при создании .ListObjects? В Help ничего не нашел... ... выборки Pivot table.{/post}{/quote} Set rstRecordset = CreateObject("ADODB.Recordset") With rstRecordset .CursorLocation = 3 '''adUseClient ... ... TableName:="PivotTable1" End With Получаеться кеш для сводной таблицы
Изменен: 26 Июл 2011
Читать сообщение на форуме или сайте.
Копирование данных с множества листов и вставкой на один лист , с постоянным смещением .
... SheetsNames As Variant 'имя листа, куда будет выводиться результирующая сводная ResultSheetName = "Сводная" 'массив имен листов с исходными таблицами SheetsNames = Array("Альфа", "Бета", "Гамма", "Дельта") ... ... "SELECT * FROM [" & SheetsNames(i) & "$]" Next i Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL, " UNION ALL "), _ Join$(Array("Provider=Microsoft....
Изменен: 18 Дек 2010
Читать сообщение на форуме или сайте.
Сводная таблица по нескольким диапазонам данных
... макрос перестал исполняться. Если что я не силен в макросах.Sub New_Multi_Table_Pivot()     Dim i As Long     Dim arSQL()... ... 'имя листа, куда будет выводиться результирующая сводная     ResultSheetName = "Сводная"     'массив имен листов с исходными таблицами     SheetsNames = Array("Лист1", "Лист2")... ... "$]"         Next i         Set objRS = CreateObject("ADODB.Recordset")         objRS.Open Join$(arSQL, " UNION ALL "), _  ...
Изменен: 18 Июл 2019
Читать сообщение на форуме или сайте.
Построение сводной таблицы из данных нескольких листов по столбцам с одинаковыми названиями
... могу понять почему макрос не работает в 2010 EXCEL, что нужно заменить, чтобы заработал.... ... куда будет выводиться результирующая сводная ResultSheetName = "Сводная" ... ... 'массив имен листов с исходными таблицами SheetsNames = Array("FAB", ... ... Next i Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL, " UNION ...
Изменен: 24 Авг 2012
Читать сообщение на форуме или сайте.
Создание структурированного массива
...?PAGE_NAME=profile_view&UID=6074&tags=%D0%B4%D0%B5%D0%BD%D1%8C&logout_butt=%25252525252525D0%2525252525252592%25252525252525D1%252525252525258B%25252525252525D0%25252525252525B9%25252525252525D1%2525252525252582%25252525252525D0%25252525252525B8) Есть сводная таблица для текста, делается с помощью SQL. Но там... ... попробовать прикрутить к Вашему файлу. Не получилось в две строчки сделать, надеюсь гуру внесут свою... ... тут на форуме. Код такой:Dim cn As ADODB.Connection, rs As ADODB.Recordset Dim sCon As String, n As Long, sSql As String Set cn = New ADODB.Connection...
Изменен: 13 Июн 2017
Читать сообщение на форуме или сайте.
Сводная таблица из нескольких источников.
Автор: TIsaeva. Ребята, привет! Помогите, плиз! Необходимо сделать сводную таблицу из 2-х источников. Нашла здесь очень хороший макрос, только вот ... ... "SELECT * FROM [" & SheetsNames(i) & "$]" Next i Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL, " UNION ALL "), _ Join$(Array("Provider=Microsoft....
Изменен: 5 Июн 2011
Читать сообщение на форуме или сайте.
Создание сводной таблицы по нескольким именованным диапазонам
... форума замечательный макрос, который позволяет построить НОРМАЛЬНУЮ сводную таблицу по нескольким диапазонам из разных листов.  Можно ли как-то видоизменить ... ... [" & SheetsNames(i) & "$]"         Next i         Set objRS = CreateObject("ADODB.Recordset")         objRS.Open Join$(arSQL, " UNION ALL "), _                    Join$(Array("Provider=Microsoft....
Изменен: 11 Май 2016
Читать сообщение на форуме или сайте.
Сводная по нескольким диапазонам с разных листов
... приемах есть отличный пример как из нескольких листов сделать одну сводную таблицу. Проблема в том что макрос перебирает листы и не выбирает весь массив данных (делает ... ... SheetsNames = Left(SheetsNames, Len(SheetsNames) - 10) With ActiveWorkbook Set objRS = CreateObject("ADODB.Recordset") objRS.Open SheetsNames, _ Join$(Array("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=", _ ...
Изменен: 15 Авг 2012
Читать сообщение на форуме или сайте.
Сводная таблица из нескольких источников.
... для вывода результирующей сводной таблицы On Error Resume Next Application.DisplayAlerts ... ... ResultSheetName 'выводим на этот лист сводную по сформированному кэшу ... ... ActiveWorkbook.PivotCaches.Add(xlExternal) Set objPivotCache.Recordset = objRS Set objRS = Nothing With wsPivot ... ... могла не совсем доходчиво объяснить в предыдущем сообщении. У меня файл ...
Изменен: 5 Июн 2011
Читать сообщение на форуме или сайте.
ADODB.Recordset- ошибка при доступе к таблице MS SQL
Автор: Doober. "naz написал: Почему Recordset закрытым оказывается?" Время отработки процедуры очень большое.... ... минуты. Раньше выполнялась минут 12.Записей 4 млн строк,вытягивалась сводная таблица
Изменен: 1 Мар 2016
Читать сообщение на форуме или сайте.
Оптимизировать макрос для Виндус под Мак
... DopplerEffect. Добрый день! Имеется макрос в Эксель, работающий на виндус. Макрос ... ... по полученным данным формируется сводная (SQL запросом). Код не сложный ... ... других файлов во вкладку "Временная таблица". Бюджет 500 р. Файл вышлю ... ... CON As Object 'New ADODB.Connection Dim RS As Object 'New ADODB.Recordset Dim arrS Set CON = CreateObject("ADODB.Connection") ...
Изменен: 8 Апр 2019
Читать сообщение на форуме или сайте.
Адаптация кода VBA под 32 бит из 64 бит, Адаптация кода VBA написанного в Microsoft Excel 2016 64-Bit под Excel версий 2007, 2010 32/64 bit
... отчет, на моем компьютере и компьютерах коллег в офисе все работает, у всех одна версия офиса... ... Обновить_текущий_город() Dim cn As Object 'New ADODB.Connection Dim rec As Object 'ADODB.Recordset Dim dtfr, dtto, PosStr Dim sh, sh1, sh2 As Worksheet     Set sh = ThisWorkbook... ... adOpenDynamic     rec.LockType = adLockOptimistic     ' обновляем первую, сводную таблицу     sh.PivotTables("Свод").PivotCache.CommandText =...
Изменен: 27 Мар 2019
Читать сообщение на форуме или сайте.
Сводная таблица на основе двумерного массива
Автор: anvg. Доброе время суток. "У меня есть сводная созданная на основе массива(320т.строк),... ... подразумевается под массивом? Если это некоторая таблица листа Excel, то просто в источнике данных поменяйте диапазон. Если это... ... обсуждалось здесь, преобразованием некоторого массива в Recordset и подсовыванием в качестве кэша, то по другому...
Изменен: 12 Фев 2014
Читать сообщение на форуме или сайте.
PoverPivot или сводная на основе нескольких листов
... Попробую установить и замучить "B.Key пишет: только лучше создать ADO шный Recordset и впихнуть его сразу в сводную "да, именно это и желательно. Не создавать лист с более чем ... ... может обрезаться. Но сразу запихивать как источник данных для сводной таблицы или PowerPivot Спасибо еще раз всем за помощь и комментарии
Изменен: 22 Окт 2014
Читать сообщение на форуме или сайте.
Сводная таблица OLEDB
... лучше .Connection ставить первым в череде оформления получения внешних данных из баз данных. Успехов. "JeyCi написал: Как поставить заполненый Recordset в источник сводной таблицы"А зачем так делать в данном случае? Чтобы хранить кэш данных для сводной в книге Excel (например, чтобы можно было на любом компьютере ...
Изменен: 29 Окт 2015
Читать сообщение на форуме или сайте.
Данные из Oracle в модель данных с параметрами!
... подсчитывать количество уникальных элементов. Последнее умеет делать сводная таблица с источником данных из модели данных. Как мне посредством VBA запихнуть мой RecordSet в модель данных? Или как мне сразу формировать модель данных с параметризированным ...
Изменен: 29 Июл 2016
Читать сообщение на форуме или сайте.
Сводная таблица на основе двумерного массива
... JeyCi. "SvetaS_love написал: а хотелось бы, сразу в структуру таблицы" примеры заполнения полей Сводной в VBA - здесь - Как поставить заполненый Recordset в источник сводной таблицы (http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=65748&TITLE_SEO=65748-kak-postavit-zapolnenyy-recordset-v-istochnik-svodnoy-tablitsy&MID=551538&tags=&q=JeyCi++OLEDB+%D0%A1%D0%B2%D0%BE%D0%B4%D0%BD%D0%B0%D1%8F&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message551538) ...
Изменен: 25 Окт 2015
Читать сообщение на форуме или сайте.
Сводная таблица с данными из Oracle
... заполненных пользователем. Что я сделал: Создал книгу.  Создал заготовку сводной таблицы. Добавил объект "кнопка ActiveX". С помощью ADODB.Connection подключился к БД и научился выводить полученную информацию на листе. В чем нужна помощь: Не знаю как запихнуть ADODB.Recordset в PivotCache. (Строки типа Set pvt = ActiveSheet.PivotTables("Содная таблица5") ...
Изменен: 10 Авг 2015
Читать сообщение на форуме или сайте.
Данные из cashe сводной
Автор: anvg. У вас битый файл. Не открывается архив. Если сводная создана по подключению к таблице Access попробуй прогнать такой макрос Public Sub test() Dim pCon As Object ... ... = CreateObject("ADODB.Connection") pCon.Open pCache.Connection Set pRSet = CreateObject("ADODB.Recordset") pRSet.CursorLocation = 3 Select Case pCache.CommandType Case xlCmdTable ...
Изменен: 1 Мар 2012
Читать сообщение на форуме или сайте.
Страницы: 1 2 След.
Наверх