Страницы: 1 2 След.
Поиск
Variant как источник данных сводной таблицы
... : idShura. "sokol92 написал: Свойству Recordset в строке 23 должна быть присвоена ... ссылка на объект типа Recordset." sokol92 спасибо за ответ ... понятно. Я не очень разбираюсь в VBA и хотел узнать, есть ... двумерный массив в качестве источника данных в сводной таблице, например преобразовать двумерный массив в Recordset или ...
Изменен: 21.06.2020
Читать сообщение на форуме или сайте.
Сводная таблица OLEDB, Заполнение сводной таблицы данными из sql server compact
... и засунуть их в сводную таблицу? Пока научился только доставать данные в recordset: Dim conn ... As ADODB.Connection Dim rs As ADODB.Recordset ... .Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=Microsoft ... rs = cmd.Execute ... conn.CloseЗаполнять сводную таблицу через ODBC я умею, а ...
Изменен: 28.10.2015
Читать сообщение на форуме или сайте.
Как создать сводную таблицу из нескольких листов Excel
... как в Екселе почему то нет нормального мастера создающего полноценную сводную из ... несколько листов в книге, на каждом листе таблица (структура таблиц должна быть одинакова ... ). Макрос собирает данные из всех таблиц в один Recordset ... и загружает его в сводную таблицу. При изменении данных достаточно обновить сводную таблицу ... облегчит вам создание такой удобной сводной. Надеюсь услышать отзывы старожилов. Антон ...
Изменен: 06.10.2011
Читать сообщение на форуме или сайте.
Не строится сводная таблица на основе ADODB.Recordset при обращении к свойствам EOF и BOF
... построить сводную таблицу из кэша, который в свою очередь создан на основе ADODB.Recordset ... : Dim rsReport As New ADODB.Recordset rsReport.Open ... .Create(SourceType:=xlExternal) Set PTCash.Recordset = rsReport Set PT = PTCash.CreatePivotTable ... не добавляю проверку на наличие в этом RecordSet записей при помощи конструкцииIf ... rsReport.BOF Then StopПосле этого сводная таблица не строится с формулировкой " ... же ошибке. Никто не подскажет, в какую сторону копать?
Изменен: 19.01.2022
Читать сообщение на форуме или сайте.
Сводная таблица по нескольким диапазонам данных, Сводная таблица по нескольким диапазонам данных
... макрос по своду нескольких таблиц из нескольких листов в одну общую. Но ... Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL ... заново лист для вывода результирующей сводной таблицы On Error Resume Next Application ... .PivotCaches.Add(xlExternal) Set objPivotCache.Recordset = objRS Set objRS = Nothing With ... от 30 до 40 листов в книге по 1 500 - 2 ... 000 строк в каждом листе. Ошибка выдается из ... прожевывали такие большие таблицы. Поэтому не понимаю что в коде не так ...
Изменен: 13.05.2022
Читать сообщение на форуме или сайте.
Сводная таблица по нескольким диапазонам данных
... Если что я не силен в макросах.Sub New_Multi_Table_Pivot()     ... сводная     ResultSheetName = "Сводная"     'массив имен листов с исходными таблицами ... objRS = CreateObject("ADODB.Recordset")         ... заново лист для вывода результирующей сводной таблицы     On Error Resume Next   ...       'выводим на этот лист сводную по сформированному кэшу     Set objPivotCache ... .PivotCaches.Add(xlExternal)     Set objPivotCache.Recordset = objRS     Set objRS = Nothing   ...
Изменен: 18.07.2019
Читать сообщение на форуме или сайте.
Сводная таблица из нескольких источников.
... привет! Помогите, плиз! Необходимо сделать сводную таблицу из 2-х источников. Нашла ... Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL ... заново лист для вывода результирующей сводной таблицы On Error Resume Next Application ... .PivotCaches.Add(xlExternal) Set objPivotCache.Recordset = objRS Set objRS = Nothing With ... . Пробывала через "мастер сводных таблиц" - "в нескольких диапазонных конолидациях" ...
Изменен: 05.06.2011
Читать сообщение на форуме или сайте.
Сводная таблица на основе двумерного массива
... через PivotCache.Recordset задать собственную таблицу Recordset, как результат некоторой выборки. Только сводная в этом ... пример для одной из создаваемых таблиц Private Function GetConnection() As Object ... Set pRSet = CreateObject("ADODB.Recordset") 'Естественно, подключение и запрос ... .PivotCaches.Create(xlExternal) Set pCache.Recordset = pRSet ThisWorkbook.Worksheets.Add 'True ...
Изменен: 25.10.2015
Читать сообщение на форуме или сайте.
Построение сводной таблицы из данных нескольких листов по столбцам с одинаковыми названиями
... понять почему макрос не работает в 2010 EXCEL, что нужно заменить ... результирующая сводная ResultSheetName = "Сводная" 'массив имен листов с исходными таблицами SheetsNames ... Set objRS = CreateObject("ADODB.Recordset") objRS.Open Join$(arSQL ... заново лист для вывода результирующей сводной таблицы On Error Resume Next Application ... .PivotCaches.Add(xlExternal) Set objPivotCache.Recordset = objRS Set objRS = Nothing With ...
Изменен: 24.08.2012
Читать сообщение на форуме или сайте.
Сводная таблица с данными из Oracle
...   Set pc.Recordset = rs pc.Refresh я получаю в pt - сводную таблицу, в pc - ее ... кэш, а на строке Set pc.Recordset ...
Изменен: 11.08.2015
Читать сообщение на форуме или сайте.
Как поставить заполненый Recordset в источник сводной таблицы
Автор: JeyCi. The_Prist спасибо :) - только успела собраться отвечать, а вы меня подстраховали... Vitallic, а вы бы сначала попробовали те строки вставить в ваш код - у меня на вашем файле сводная с полями появилась, но по какому принципу вы формируете поля я не знаю... 1) пример, который я привела - отсюда (пост№57) ... чтобы у вас и пример заполнения сводной был перед глазами - т.к. я не поняла, куда вы вставляете поля и почему так... там всего-то вставить строки, столбцы, данные...  2) ...
Изменен: 27.04.2015
Читать сообщение на форуме или сайте.
CopyRecordset. Ошибка в методе
... .Command Dim Rs As ADODB.Recordset Dim MyConn As String Dim ... рекордсета Set Rs = New ADODB.Recordset Set Rs.ActiveConnection = cnnConn Rs ... cmdCommand ' еренос данных из рекордсета в сводную таблицы (например) Set objPivotCache = ActiveWorkbook.PivotCaches ... ( _ SourceType:=xlExternal) Set objPivotCache.Recordset = Rs With objPivotCache .CreatePivotTable TableDestination ...
Изменен: 18.02.2008
Читать сообщение на форуме или сайте.
Поиск пары в диапазоне
... закинуть данные из sql запроса в сводную таблицу через recordset... но там получается только ... sql запроса данные передать в массив, и в нем обработать,... только не ...
Изменен: 29.09.2013
Читать сообщение на форуме или сайте.
Обновление сводной таблицы в excel, построенной на основе базы в sql
Автор: Дмитрий(The_Prist) Щербаков. Если данные для сводной закидываются макросом через запрос SQL, то для обновления надо сформировать тот же запрос и обновить методом Refresh. Что-то вроде:Set objConn = CreateObject("ADODB.Connection") objConn.ConnectionString = "строка подключения" objConn.ConnectionTimeout = 15 objConn.CommandTimeout = 30 objConn.Open Set objRecSet = CreateObject("ADODB.Recordset") objRecSet.Open "SELECT  * FROM TableName", ...
Изменен: 15.10.2019
Читать сообщение на форуме или сайте.
Как перезаписать PivotCache у существующей PivotTable из recordset ?
... .Recordset созданный с помощью  SQL запроса. Есть сводная таблица (Pivot_Table1) созданная из этого Recordset ...   и в последсвии руками настроеная ... данных. Для это заново формирую Recordset  и пытаюсь его присвоить Pivot_Table1 ... .PivotTables("pivot_table1").PivotCache.Recordset = rshttp://s1.radikali.ru/uploads ...
Изменен: 02.10.2017
Читать сообщение на форуме или сайте.
Ошибка компиляции при использовании ADO, адаптация кода VBA написанного в Microsoft Excel 2016 64-Bit под Excel версий 2007, 2010 32/64 bit
... моем компьютере и компьютерах коллег в офисе все работает, у всех ... разных годов и разной архитектуры, в итоге у кого-то все ...  Win32API_PtrSafe with 64-bit читал, в файле txt лазил, для себя ... Dim rec As Object 'ADODB.Recordset Dim dtfr, dtto, PosStr Dim ... ;ADODB.Recordset")     rec.CursorType = adOpenDynamic     rec.LockType = adLockOptimistic     ' обновляем первую, сводную таблицу ... ").PivotCache.Refresh         ' обновляем вторую таблицу, предварительно очистив данные     If sh1 ...
Изменен: 27.03.2019
Читать сообщение на форуме или сайте.
Сводная таблица с динамическими исходными данными
Автор: JeyCi. "TheBestOfTheBest написал: Как мы определим какие строки надо апдейтить, а какие нет?" по первичному ключу p.s. ещё мне кажется по логике подходов можно рассмотреть пару вариантов: 6) BEGIN TRANSACTION Conclude a transaction by committing all work performed during the transaction. COMMIT [TRANSACTION | WORK] Conclude a transaction by rolling back all work performed during the transaction. ROLLBACK [TRANSACTION | WORK] были и на планете примеры ...
Изменен: 23.10.2018
Читать сообщение на форуме или сайте.
Ошибка в вычисляемом поле сводной таблицы
Автор: artemkau88. может и ни к месту, вариант SQL запросом (см. Лист1): Private Sub CREATE_BYCRITERIA() Dim myConnect As Object, mySQL As String, myRecord As Object, QT As QueryTable Dim DataRange As String, strAddress As String, wshTarget As Worksheet Set myConnect = CreateObject("ADODB.Connection") myConnect.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ActiveWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0; ...
Изменен: 10.06.2022
Читать сообщение на форуме или сайте.
Сводная по нескольким диапазонам с разных листов
... ! В приемах есть отличный пример как из нескольких листов сделать одну сводную таблицу ... . Проблема в том что макрос перебирает ... Set objRS = CreateObject("ADODB.Recordset") objRS.Open SheetsNames, _ ... .PivotCaches.Add(xlExternal) Set objPivotCache.Recordset = objRS Set objRS = Nothing With ...
Изменен: 15.08.2012
Читать сообщение на форуме или сайте.
Можно ли сделать общую сводную таблицу из двух сводных таблиц?
Автор: CTR. 1. Нет, никуда я не смылся, просто одна задач из сотни совсем других дел)) 2. Количество строк одинаковое имелось ввиду в уже сводном отчете, сгруппированном до "дислокации". 3."Группа" - это столбец, где уже вручную сгрупированны нужные дислокации. 4. над ВПР думал, очень сложно получается, строк каждый день может добавляться по сотне и больше. 5. C Recordset не знаком вообще. Может подскажите, как его применить?
Изменен: 13.03.2012
Читать сообщение на форуме или сайте.
Данные из Oracle в модель данных с параметрами!
... . Доброго времени суток. Задача: запихнуть в эксель 3-5 миллионов записей ... уникальных элементов. Последнее умеет делать сводная таблица с источником данных из модели ... мне посредством VBA запихнуть мой RecordSet в модель данных? Или как мне ... с параметризированным запросом к БД? В качестве фильтров запроса нужно будет ... выбирать период. В идеале еще и динамически менять ...
Изменен: 29.07.2016
Читать сообщение на форуме или сайте.
PoverPivot или сводная на основе нескольких листов
... создать ADO шный Recordset и впихнуть его сразу в сводную "да, именно ... запихивать как источник данных для сводной таблицы или PowerPivot Спасибо еще раз ...
Изменен: 22.10.2014
Читать сообщение на форуме или сайте.
Ооооочень объемная сводная таблица
Автор: Артем. ну если 200 листов, то это конечно муторно немного... привеожу небольшой кусочек макроса, но по времени не представляю, скольок он будеь рабоать в одной книге с 200-ми листами. У меня из одного листа 15 тыс строк выгружал секунд 10. Сначала соответсвенно создаете аксесовскую базу с нужными полями, запоминате путь к ней. Затем вставляете код (см ниже) в нужную книгу. Затем в окне VBA, в меню tools-referens делаете ссылку на библиотеку Microsoft Ado ext..., нужную для ...
Изменен: 14.11.2008
Читать сообщение на форуме или сайте.
Создание структурированного массива
Автор: Дмитрий Тарковский. Uarabey Есть сводная таблица для текста, делается с помощью ... к Вашему файлу. Не получилось в две строчки сделать, надеюсь гуру ... ADODB.Connection, rs As ADODB.Recordset Dim sCon As String, n ... .Connection Set rs = New ADODB.Recordset sCon = "Provider=Microsoft.ACE ...
Изменен: 13.06.2017
Читать сообщение на форуме или сайте.
Сводная по нескольким диапазонам с разных листов
Автор: R Dmitry. Sub Pivot() Dim cn As ADODB.Connection, rs As ADODB.Recordset Dim sCon As String, i& Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Select Case Val(Application.Version) Case Is >= 12 sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName _ & ";Extended Properties=""Excel 12.0;HDR=Yes"";" Case Else sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ...
Изменен: 28.12.2011
Читать сообщение на форуме или сайте.
Использование ODBC для подключения к SQL Server
... }Можно использовать ADO в Source при создании .ListObjects? В Help ничего не ... } Set rstRecordset = CreateObject("ADODB.Recordset") With rstRecordset .CursorLocation = 3 ... ( _ SourceType:=xlExternal) Set objPivotCache.Recordset = rstRecordset With objPivotCache .CreatePivotTable TableDestination ... ; End With Получаеться кеш для сводной таблицы
Изменен: 26.07.2011
Читать сообщение на форуме или сайте.
Подсчёт счастливых билетиков
... ", а дальше всё в кучу... Дополняю свой #19 - визуализировала ... (не обязательно в сводную), на форуме есть примеры формирования Умной таблицы и просто ... Query кодом, и просто с Recordset'ом ... не сложный (адаптированный из #19) - в файле... для формирования кодом - оставила ... Для чего)... :qstn:  ваше АСУ в конце ветки - это издевательство над ... ?]... АСУ для серверов больше в тему, чем для xl (где ... от Юрий М p.s. в папку C:\1
Изменен: 21.06.2016
Читать сообщение на форуме или сайте.
Алгоритмы
Автор: JeyCi. Сводная таблица на основе двумерного массива - 1) ArrayToRecordset, 2) Recordset в PivotCaches.Add но по нюансам SQL-запрос к 2-мерному массиву - не очень всё радужно - в одноимённой ветке... там же Function rstArrayToRecordset
Изменен: 17.09.2016
Читать сообщение на форуме или сайте.
Макрос для сводной по нескольким диапазонам
Автор: IgorZ. Попробовал внести изменения предложенные Андреем VG  макрос выдал ошибку - не совпадение типов. Что не так? не так - не оформляете код в сообщении (кнопка ) [МОДЕРАТОР] Next     sSQL = Join(SheetsNames, " UNION ALL ")          'формируем кэш по таблицам с листов из SheetsNames     With ActiveWorkbook         ReDim arSQL(1 To (UBound(SheetsNames) + 1))         For i = LBound(SheetsNames) To UBound(SheetsNames)             arSQL(i + 1) = "SELECT * ...
Изменен: 05.05.2016
Читать сообщение на форуме или сайте.
Данные из cashe сводной
Автор: Суперчайник. Таблица например, в базе Access, вот пример. PivotCache.Recordset вроде только для записи в кеш, а как его использовать для выгрузки я без понятия (какими методами), например данные кеш в массив.
Изменен: 01.03.2012
Читать сообщение на форуме или сайте.
Страницы: 1 2 След.
Наверх