Обобщение сведений из разных файлов Excel

[stepa80]

Задача для вас, наверное, простая, но для меня непосильная.

Имеется Файлы, в которых ведется учет определенных сведений по федеральным округам (в каждом файле данные по соответствующим регионам страны и итоговая цифра).
Нужно, чтобы из этих файлов забирались только итоговые значения и вставлялись в общий файл.
Желательно, чтобы можно было самому указывать файл для каждого федерального округа, откуда брать итоговые значения.

[EducatedFool]

А сами то что-нибудь пробовали сделать?
Если ставите нам задачу, - так предлагайте и оплату.

А если нужна помощь, - так вы хоть что-то сами сделайте для начала
в интернете (да и на этом форуме, в частности) полно макросов для объединения данных из файлов

[stepa80]

Сообщение от EducatedFool

А сами то что-нибудь пробовали сделать?
Если ставите нам задачу, - так предлагайте и оплату.

А если нужна помощь, - так вы хоть что-то сами сделайте для начала
в интернете (да и на этом форуме, в частности) полно макросов для объединения данных из файлов

Прошу прощения, если кто то воспринял мою просьбу как постановку задачи.
Просто пытался выразить математическим языком.
Я не в курсе даже насколько это трудно, и ,если это достаточно трудоемкая работа, то конечно прошу меня извинить.
Просто, как мне показалось, на форуме намного сложнее задачи решены.

Если это сложно и без денег нерешаемо, то так и напишите.

[AleksandrH]

а если все файлы сохранить в один каталог и в Итоговый файл в ячейку D2 вставить формулу

 ='[исходные данные 1.xlsx]Лист1'!$D$19

не вариант?

[stepa80]

Сообщение от AleksandrH

а если все файлы сохранить в один каталог и в Итоговый файл в ячейку D2 вставить формулу

 ='[исходные данные 1.xlsx]Лист1'!$D$19

не вариант?

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

[AleksandrH]

Приходит на ум идея вручную создавать строку-адрес в ДВССыЛ, только...двссыл не хочет работать с закрытыми книгами.

когдато ув. Казанский имел дело с такими двссыл

[stepa80]

Из двух макросов слепил такой.
Наверное тупо, но зато работает)


Sub ЦФО()

Dim myPath As String, myName As String, FilePath As String
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialo gFolderPicker)
.Title = "Укажите рабочую папку с файлом ЦФО.xlsx"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
myPath = .SelectedItems(1) & Application.PathSeparator
End With



FilePath = myPath & "ЦФО.xlsx"
With Workbooks.Open(FilePath, ReadOnly:=True)
ThisWorkbook.Sheets(1).[D7:S7].Value = .Sheets(1).[D19:S19].Value
.Close SaveChanges:=False
End With
End Sub