Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как создать сводную таблицу из нескольких листов Excel
 
#1
06.10.2011 12:44:11
Добрый день, Уважаемые!  
Данный вопрос звучит на форуме часто, так как в Екселе почему то нет нормального мастера создающего полноценную сводную из нескольких листов (диапазонов). Консолидация тут не подходит, и я решил предложить свой вариант, разработанный с использованием ADO.  
Суть моего решения (см.файл) такова:  
Имеем несколько листов в книге, на каждом листе таблица (структура таблиц должна быть одинакова). Макрос собирает данные из всех таблиц в один Recordset и загружает его в сводную таблицу. При изменении данных достаточно обновить сводную таблицу нажатием на кномпочку.  
Надеюсь данное решение облегчит вам создание такой удобной сводной.  
Надеюсь услышать отзывы старожилов.  
Антон.
Редко но метко ...
 
 
 
#2
06.10.2011 12:52:22
А здесь http://www.planetaexcel.ru/tip.php?aid=233 не то?
 
 
 
#3
06.10.2011 13:00:24
В общем и целом задумка такая же. При этом в моем решении есть проверка на версию екселя, и есть проверка на существование сводной (то есть если она есть она просто обновляестся).  
Короче говоря таже задумка с некоторыми удобствами )).
Редко но метко ...
 
 
 
#4
06.10.2011 13:34:51
Excel 2007 Win 7  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#5
06.10.2011 15:10:30
Вот версия не требующая подключения дополнительных библиотек.
Редко но метко ...
 
 
 
#6
06.10.2011 20:44:22
Ошибка 3704 в строке    
 
Err_:        ' при возникновении ошибки  
   objRecordset.Close: Set objRecordset = Nothing
 
 
 
#7
07.10.2011 09:18:24
сейчас ошибки быть не должно. см файл
Редко но метко ...
 
 
 
#8
07.10.2011 09:31:14
а чем не нравится встроенный мастер?
Живи и дай жить..
 
 
 
#9
07.10.2011 09:47:35
Он не позволяет создать полноценную сводную (по крайней мере в 2007 екселе).
Редко но метко ...
 
 
 
#10
07.10.2011 09:54:00
чего же там неполноценного?
Живи и дай жить..
 
 
 
#11
07.10.2011 09:58:34
мы, наверное о разных мастерах говорим?  
 
я думал, что это уже всем известно, что в 2007м тоже можно использовать мастер изстарого доброго 2003го, только он хорошо спрятан..
Живи и дай жить..
 
 
 
#12
07.10.2011 10:01:37
Где спрятан мастер я  знаю. Давайте для того что бы понять в чем различие, вы создадите сводную (по моему файлу посты. выше) мастером. И сравним получившийся результат.
Редко но метко ...
 
 
 
#13
07.10.2011 10:04:23
Вы про этот мастер говорите ?
Редко но метко ...
 
 
 
#14
07.10.2011 10:20:29
Антон, я не специально :)
 
 
 
#15
07.10.2011 10:28:13
Для корректной работы моего макроса нужно что бы на всех листах с данными были таблицы одинаковой структуры. Если есть другие листы с данными кроме таблиц, будет выскакивать эта ошибка. Если в книге нужны еще листы кроме листов с таблицами, тогда в макросе нужно задать конкретный список листов откуда брать таблицы.
Редко но метко ...
 
 
 
#16
07.10.2011 10:54:17
да про этот мастер. да, посмотрел, разница есть. :)
Живи и дай жить..
 
 
 
#17
07.10.2011 11:06:39
И я об этом )
Редко но метко ...
 
 
 
#18
23.05.2012 13:22:59
Подскажите, в котором именно месте, вставлять список листов?  
Спасибо.
 
 
 
#19
26.05.2012 09:57:12
Хорошо, тогда подскажите, как именно вписать в:  
 
For Each shCurr In ThisWorkbook.Worksheets  
       If Not shCurr.Name = shSvTab.Name And Not shCurr.UsedRange.Cells.Count = 1 Then  
           ReDim Preserve arrSQL(1 To i)  
           arrSQL(i) = "Select * From " & "[" & shCurr.Name & "$]"
           i = i + 1  
       End If  
 
что нужны листы с Лист1 по Лист5.  
Спасибо.
 
 
 
#20
26.05.2012 10:15:22
Велосипед здесь:   
http://www.contextures.com/xlPivot08.html
 
 
 
#21
26.05.2012 10:27:18
За ссылочку спасибо большое, вот только бы ещё и точку изменения указать..,  
ну как раньше делали:   
http://www.planetaexcel.ru/forum.php?thread_id=12359 )
 
 
 
Страницы: 1
Наверх