... как в Екселе почему то нет нормального мастера создающего полноценную сводную из ... несколько листов в книге, на каждом листе таблица (структура таблиц должна быть одинакова ... ). Макрос собирает данные из всех таблиц в один Recordset ... и загружает его в сводную таблицу. При изменении данных достаточно обновить сводную таблицу ... облегчит вам создание такой удобной сводной. Надеюсь услышать отзывы старожилов. Антон ...

... макрос по своду нескольких таблиц из нескольких листов в одну общую. Но ... 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 строк в каждом листе. Ошибка выдается из ... прожевывали такие большие таблицы. Поэтому не понимаю что в коде не так ...

... привет! Помогите, плиз! Необходимо сделать сводную таблицу из 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 ... . Пробывала через "мастер сводных таблиц" - "в нескольких диапазонных конолидациях" ...

... понять почему макрос не работает в 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 ...

Автор: JeyCi. The_Prist спасибо :) - только успела собраться отвечать, а вы меня подстраховали... Vitallic, а вы бы сначала попробовали те строки вставить в ваш код - у меня на вашем файле сводная с полями появилась, но по какому принципу вы формируете поля я не знаю... 1) пример, который я привела - отсюда (пост№57) ... чтобы у вас и пример заполнения сводной был перед глазами - т.к. я не поняла, куда вы вставляете поля и почему так... там всего-то вставить строки, столбцы, данные...  2) ...

... закинуть данные из sql запроса в сводную таблицу через recordset... но там получается только ... sql запроса данные передать в массив, и в нем обработать,... только не ...

... .Recordset созданный с помощью  SQL запроса. Есть сводная таблица (Pivot_Table1) созданная из этого Recordset ...   и в последсвии руками настроеная ... данных. Для это заново формирую Recordset  и пытаюсь его присвоить Pivot_Table1 ... .PivotTables("pivot_table1").PivotCache.Recordset = rshttp://s1.radikali.ru/uploads ...

Автор: 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] были и на планете примеры ...

Автор: 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; ...

... . Доброго времени суток. Задача: запихнуть в эксель 3-5 миллионов записей ... уникальных элементов. Последнее умеет делать сводная таблица с источником данных из модели ... мне посредством VBA запихнуть мой RecordSet в модель данных? Или как мне ... с параметризированным запросом к БД? В качестве фильтров запроса нужно будет ... выбирать период. В идеале еще и динамически менять ...

Автор: Артем. ну если 200 листов, то это конечно муторно немного... привеожу небольшой кусочек макроса, но по времени не представляю, скольок он будеь рабоать в одной книге с 200-ми листами. У меня из одного листа 15 тыс строк выгружал секунд 10. Сначала соответсвенно создаете аксесовскую базу с нужными полями, запоминате путь к ней. Затем вставляете код (см ниже) в нужную книгу. Затем в окне VBA, в меню tools-referens делаете ссылку на библиотеку Microsoft Ado ext..., нужную для ...

Автор: Дмитрий Тарковский. Uarabey Есть сводная таблица для текста, делается с помощью ... к Вашему файлу. Не получилось в две строчки сделать, надеюсь гуру ... ADODB.Connection, rs As ADODB.Recordset Dim sCon As String, n ... .Connection Set rs = New ADODB.Recordset sCon = "Provider=Microsoft.ACE ...

... }Можно использовать 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 Получаеться кеш для сводной таблицы

Автор: JeyCi. Сводная таблица на основе двумерного массива - 1) ArrayToRecordset, 2) Recordset в PivotCaches.Add но по нюансам SQL-запрос к 2-мерному массиву - не очень всё радужно - в одноимённой ветке... там же Function rstArrayToRecordset