Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Автоматическое обновление данных с листа одной книги на лист другой
 
#1
23.12.2009 16:54:57
Здравствуйте уважаемые Гуру!  
 
Помогите пожалуйста в следующем вопросе:  
Есть книги (1,2,3...) по одному листу в каждой.  
Хочется иметь другую книгу2, в которой будут отображаться листы из каждой указанной книги (1,2,3..).  
И чтобы данные в листах книги2 обновлялись автоматически при изменении их в листах книг (1,2,3...).  
Т.е. как я вижу это:  
Листы в этой сводной книге2 являются зеркальным отображением листов в каждой книге (1,2,3...).  
 
Или обратный трюк:  
Есть книга1 с листами (1,2,3...).  
Хочется чтобы каждый лист в книге1 автоматически зеркально отображался в отдельной указанной книге соответственно (1,2,3..).  
И если меняется что-то на каком-то листе в книге1, то и в соответствующей листу книге (даже если она закрыта на данный момент) были видны эти изменения.  
 
Если это вообще возможно, помогите!
 
 
 
#2
23.12.2009 16:59:38
Вообще-то это элементарно.  
В Книга2 Лист1 А1 =[Книга1]Лист1!$A$1
В Книга2 Лист2 А1 =[Книга3]Лист1!$A$1
                                     и т.д.
 
 
 
#3
23.12.2009 17:03:06
{quote}{login=Beleckiy}{date=23.12.2009 04:54}{thema=Автоматическое обновление данных с листа одной книги на лист другой}{post}...И если меняется что-то на каком-то листе в книге1, то и в соответствующей листу книге (даже если она закрыта на данный момент) были видны эти изменения.  
...{/post}{/quote}  
 
А вот это как раз невозможно. Как вы себе представляете просмотр изменений в ЗАКРЫТОЙ книге? :-)  
Придётся её открыть, тогда уже увидите :)
 
 
 
#4
23.12.2009 17:48:26
{quote}{login=Serge 007}{date=23.12.2009 04:59}{thema=}{post}Вообще-то это элементарно.  
В Книга2 Лист1 А1 =[Книга1]Лист1!$A$1
В Книга2 Лист2 А1 =[Книга3]Лист1!$A$1
и т.д.{/post}{/quote}  
 
Простите, попробовал, но не получается..  
Вложил книгу с листом.
 
 
 
#5
23.12.2009 17:53:47
Ввожу в А1 =[D:\Bekker\Prices\Bekker_AcousticSmart.xls]AcousticSmart!$A$1
 
А мне выдает "Введено не допустимое имя"
 
 
 
#6
23.12.2009 17:59:40
{quote}{login=Beleckiy}{date=23.12.2009 05:53}{thema=Re: }{post}Ввожу в А1 =[D:\Bekker\Prices\Bekker_AcousticSmart.xls]AcousticSmart!$A$1
 
А мне выдает "Введено не допустимое имя"{/post}{/quote}  
 
Не вводите вручную...  
У меня работает (см. вложение)
 
 
 
#7
23.12.2009 18:12:50
Эта формула отображает только значения ячеек.  
А как сделать чтобы отображался целый лист с подобным форматированием.  
Т.е. зеркально отображать листы (с форматированием).
 
 
 
#8
23.12.2009 18:19:51
{quote}{login=Beleckiy}{date=23.12.2009 06:12}{thema=Это не то что нужно}{post}Эта формула отображает только значения ячеек.  
А как сделать чтобы отображался целый лист с подобным форматированием.  
Т.е. зеркально отображать листы (с форматированием).{/post}{/quote}  
 
Протёр глаза, перечитал топик...  
Где там написано про форматирование?!  
И если уж быть точным до конца, то что значит "зеркально"?  
В зеркале вообще-то всё отображается точно наоборот!  
 
Формулами это невозможно, хотя и были попытки (поищите на форуме).  
Макросом наверное можно. Ждите кудесников VBA.
 
 
 
#9
23.12.2009 18:39:11
{quote}{login=Serge 007}{date=23.12.2009 06:19}{thema=Re: Это не то что нужно}{post}{quote}{login=Beleckiy}{date=23.12.2009 06:12}{thema=Это не то что нужно}{post}Эта формула отображает только значения ячеек.  
А как сделать чтобы отображался целый лист с подобным форматированием.  
Т.е. зеркально отображать листы (с форматированием).{/post}{/quote}  
 
Протёр глаза, перечитал топик...  
Где там написано про форматирование?!  
И если уж быть точным до конца, то что значит "зеркально"?  
В зеркале вообще-то всё отображается точно наоборот!  
 
Формулами это невозможно, хотя и были попытки (поищите на форуме).  
Макросом наверное можно. Ждите кудесников VBA.{/post}{/quote}  
 
Спасибо, Серж!  
Я понял что формулами никак.  
Меня вот и интересует вар-т на макросах.  
Повторю задачу:  
Чтобы листы полностью переносились с сохранением вида.
 
 
 
#10
23.12.2009 18:43:08
Если Вам необходимо только просматривать, не редактируя исходную инфу, то попробуйте этот инструмент:
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#11
23.12.2009 18:48:00
{quote}{login=Ёксель-моксель}{date=23.12.2009 06:43}{thema=}{post}Если Вам необходимо только просматривать, не редактируя исходную инфу, то попробуйте этот инструмент:{/post}{/quote}  
 
Topic from Beleckiy: "...И чтобы данные в листах книги2 обновлялись автоматически при изменении их в листах книг (1,2,3...)..."
 
 
 
#12
23.12.2009 18:50:02
...перечитал и сам не понял... =\  
"не редактируя исходную инфу, " - её и так не отредактируешь из другого файла!  
 
Короче "камера" - то что Вам нужно, если Вы не нужны данные исходных листов.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#13
23.12.2009 18:52:08
{quote}{login=Serge 007}{date=23.12.2009 06:48}{thema=Re: }{post}{quote}{login=Ёксель-моксель}{date=23.12.2009 06:43}{thema=}{post}Если Вам необходимо только просматривать, не редактируя исходную инфу, то попробуйте этот инструмент:{/post}{/quote}  
 
Topic from Beleckiy: "...И чтобы данные в листах книги2 обновлялись автоматически при изменении их в листах книг (1,2,3...)..."{/post}{/quote}Картинка после "камеры" тоже обновится, но только после открытия файлов-исходников. Как и с формулами.
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#14
23.12.2009 18:55:59
{quote}{login=Ёксель-моксель}{date=23.12.2009 06:50}{thema=}{post}...перечитал и сам не понял... =\{/post}{/quote}  
 
Сам ввёл в заблуждение :-)
 
 
 
#15
23.12.2009 18:56:52
А вообще согласен: "Ждите кудесников VBA" :)  
 
PS: Где-то видел:  
Извлечение данных из закрытого файла  
Sub GetDataFromFile()  
  Range("A1").Formula = "='C:\[Исходник.xls]Лист1'!A1"
End Sub  
 
А вот форматирование как?
Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.
 
 
 
#16
23.12.2009 19:04:45
{quote}{login=Ёксель-моксель}{date=23.12.2009 06:50}{thema=}{post}...перечитал и сам не понял... =\  
"не редактируя исходную инфу, " - её и так не отредактируешь из другого файла!  
 
Короче "камера" - то что Вам нужно, если Вы не нужны данные исходных листов.{/post}{/quote}  
 
Интересный вар-т :)  
Но нужно чтобы данные были не в картинке, а в тексте.  
Т.е. как буд-то я нахожусь на исходнике, а на самом деле на копии. На копии данные редактировать не нужно, но скопировать например ячейку это обязательно.
 
 
 
#17
23.12.2009 19:07:26
{quote}{login=Ёксель-моксель}{date=23.12.2009 06:56}{thema=}{post}А вообще согласен: "Ждите кудесников VBA" :)  
 
PS: Где-то видел:  
Извлечение данных из закрытого файла  
Sub GetDataFromFile()  
  Range("A1").Formula = "='C:\[Исходник.xls]Лист1'!A1"
End Sub  
 
А вот форматирование как?{/post}{/quote}  
 
Опять таки это похоже применимо только к ячейке А1. А как к целому листу?
 
 
 
#18
23.12.2009 19:28:00
Нашел на сайте макрос:  
Он описан чуть ниже этого http://www.planetaexcel.ru/plex_features.php#43  
 
Так вот это то что нужно, Но...  
Если бы листы в полученной сводной книге были как отображение оригиналов.  
Т.е. если в оригинале сделалось любое изменение или форматирование, то в соответствующем листе сводной книги тоже были отображены эти изменения.
 
 
 
Страницы: 1
Читают тему
Наверх