Excel 2003 копирование из разных файлов в один

[mixaxa]

Здравствуйте товарищи программисты! Как и большинство посетителей этого форума, я нуждаюсь в вашей квалифицированной помощи. Шеф поставил задачу сделать сводную таблицу из данных которые хранятся на разных локальных дисках в разных файлах (каждый день данные этих файлов обновляются). Тоесть перед тем как приступить к сводной таблице нужно все оформить в один файл. Я попробовал реализовать все это ссылками на ячейки из этих файлов и вроде бы получил результат, но открытие такого файла подгружает проц компа на 100% (при закрытых файлах исходниках). Помогите реализовать комплексное копирование областей книг с помощью VB. Заранее спасибо!

Немного подробнее:
1. есть с десяток файлов Excel, в каждом из них по несколько листов

2. нужно обратиться к каждому файлу к конкретному листу с целью копирования(лучше конечно если не копировать а использовать что-то на подобии OLE) из них некой области данных(не всего листа целиком) в отдельный пустой файл (в конкретную область).

3. этот конечный файл будет в последствии базой для сводной таблицы

4. структура файлов-исходников неизменна, кол-во строк и столбцов тоже

5. файлы-исходники в моем случае будут закрыты

Заранее благодарю за помощь

[The_Prist]

Здравствуйте.
Это не подойдет?
Еще это.

А еще можно воспользоваться поиском - обсуждалась тема не один раз.

[mixaxa]

спасибо что так быстро откликнулись. консолидация бы подошла, но с этим проблемы....дело в том что в одном файле есть столбцы с одинаковыми названиями, поменять названия я не могу, а консолидация фигачит значения двух столбцов в один и от этого получается каша

[The_Prist]

А причем здесь консолидация? Вы нормально по ссылкам смотрели? Или просто ориентировались на адрес страницы, где упомянуто Consolidated? В приложенных по ссылкам решениях ничего не консолидируется в прямом понимании. Тупо копируются данные с листов друг за другом.

[mixaxa]

ни тот ни другой способ не прокатывает. так как они единоразового использования и не дают возможности копировать данные из разных областей в разные области, а мне необходимо чтобы при открытии файла он обращался к файлам-исходникам и либо копировал заново из них необходимые части либо производил обновление полей=(((

[mixaxa]

я в VBA не силен, а потому прошу вас написать обработчик копирования данных из книги 1.xls листа data ячеек ("K14:CE28388") в книгу 2.xls лист Data ячейки ("K2:CE28376"), а для всех остальных книг я уже по образу и подобию доделаю. заранее благодарю.

[doober]

Попробуйте так

Private Sub CommandButton1_Click()
Dim oPATH  As String, oFile As String, oList As String
Dim dt
oPATH = "C:\"
oFile = "1.xls"
oList = "data" 'Имя листа
  Application.ScreenUpdating = False
  Set sh = GetObject(oPATH & oFile).Sheets(oList)
   
   dt = sh.Range("K14:CE28388")
ThisWorkbook.Worksheets("Data").Range("K2:CE28376") = dt
 sh.Parent.Close (False)
  Application.ScreenUpdating = True
End Sub

[mixaxa]

doober Спасибо - это то чего мне как раз и не хватало!

[mixaxa]

А как сделать чтобы формат исходных ячеек сохранялся?

[doober]

Sub Update()
Dim oPATH  As String, oFile As String, oList As String
Dim dt
oPATH = "C:\"
oFile = "1.xls"
oList = "data"
  Application.ScreenUpdating = False
  Set sh = GetObject(oPATH & oFile).Sheets(oList)
  sh.Range("K14:CE28388").Copy ThisWorkbook.Worksheets("Data").Range("K2")
 sh.Parent.Close (False)
  Application.ScreenUpdating = True
End Sub