Вот нашёл макрос

Цитата Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _ MultiSelect:=True, Title:="Files to Merge"   If TypeName(FilesToOpen) = "Boolean" Then MsgBox "Не выбрано ни одного файла!" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub

как в него можно вместо открытия файлов можно указать перебор значений диапазона с листа 1 А1:А50?
очень нужно, а покупать надстройку не то чтобы дорого, просто данная задача требуется на момент отладки, и в дальнейшем в ней необходимости не будет.
заранее спасибо за помощь!

Общий файл сделал ссылку на лист rez1 файла file1.xlsx
Тут он выводит ячейку, а нужно чтобы выводил целиком лист.

Общий файл существует постоянно, файлы расположены в этой же папке в подпапках 1,2,3 и т.д.
К сожалению похожих не нашёл, искал по форуму и в гугле, видимо плохо смотрел.
Если кому-нибудь не трудно, скиньте пример, пожалуйста.

Подскажите.
Есть несколько файлов в каждом по несколько расчётных листов и один результирующий.
Нужно собрать результаты в один общий файл, в котором количество листов равно количеству файлов.
Т.е. лист1=file1.xls\rez1, лист2=file2.xls\rez2 и т.д.
Ссылка на диапазон ячеек не очень удобна, т.к. кол-во столбцов и строк разное.
Возможно у кого-то есть макрос для данного случая?
Заранее спасибо!

Прошу помощи в проблеме.
Есть большое количество файлов с расчётами в маткаде, которые передают результаты вычислений в excel.
Затем уже в Excel идут дополнительные вычисления.
Но дело в том, что при пересчёте маткадовских файлов после изменённых данных в Excel перестают работать формулы, как я понял, потому, что Excel не признаёт эти данные за изменившиеся.
Пересчёт происходит при нажатии enter на данных, при нажатии CTRL+SHIFT+ALT+F9.
Есть вариант встроить VBA - Application.CalculateFull при открытии книги, но очень не хочется использовать макросы, так как книга становится xlsm и появляется необходимость исправить 100+ файлов маткада.
Может кто сталкивался с такой ерундой и есть решение без переделывания файлов?
Заранее спасибо.