Svetim (Автор тем)

Заменить наименование файла на содержимое ячейки

Пользователь

Сообщений: 7 Регистрация: 26.12.2013

15.01.2014 16:23:49

Добрый день!
Очень прошу о помощи!
Есть макрос, который всем хорош, но работает только отдельном в открытом файле, но очень нужна пакетная обработка, т.к. файлов очень много. Может кто знает как это сделать?

Код

Sub Копия_2()

 Sheets(Array("Отчет").Se
lect
 Sheets("Отчет".Activate
 ActiveWorkbook.SaveAs Filename:= _
 "C:\test\result\" & Cells(11, .Value & ".xls", FileFormat:= _
 xlNormal, CreateBackup:=False
 ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
 Sheets("Отчет".Select
 Range("A1".Select
 Sheets("Отчет".Select
 Range("A1".Select

End Sub

Изменено: Svetim - 16.01.2014 00:57:01

Перейти

Консолидированная таблица из разных файлов.

Svetim

Пользователь

Сообщений: 7 Регистрация: 26.12.2013

08.01.2014 10:30:13

Добрый день!
Прошу помощи в решении задачи по созданию консолидированной таблицы. Основная проблема в том, что нужно консолидировать более тысячи файлов. А качестве примера прикладываю фрагмент таблицы. Все файлы заполнены по шаблону, формат у всех одинаковый и наименование листа тоже.

Перейти