Перенос данных из одной книги в другую

[andrewgusev]

Добрый день!

Хотел попросить о помощи:

У меня есть 100+ книг, лежащих в одной папке, созданных по одному шаблону. Сейчас я видоизменил исходный шаблон и хотел бы переместить всю информацию из старых книг в новый шаблон. Схема такая:

1)У меня открыт шаблон в котором будет написан макрос
2)Макрос идет в папку и открывает первую книгу
3)Копирует определенные ячейки и вставляет их в определенные ячейки шаблона
4)Закрывает старую книгу
5)Новый шаблон с информацией сохраняет под именем из одной из ячеек
6)Открывает следующую книгу
7)Копирует определенные ячейки и вставляет их в определенные ячейки шаблона

и тд. пока не пройдет по всем старым книгам и не создаст альтернативные им новые.

я попробовал написать макрос для обращения к одной книге:

Sub Get_Value_From_Close_Book_Formula()

Dim sPath As String, sFile As String, sShName As String

sPath = "S:\..."
sFile = "..."
sShName = "General info"
With Range("B1:B2")
.Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B1:B2"
.Value = .Value

End With
End Sub

ну это на примере копирования части ячеек.

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

К сожалению целиком листы копировать нельзя поэтому только определенные ячейки
Книги содержат 3 листа и со всех надо копировать что то на 3 листа нового шаблона

Спасибо заранее тому, кто сможет подсказать.

[RAN]

Заранее спасибо тут не котируется.
Если платно - пишите. Сделаю.

[andrewgusev]

Стоимость и сроки?

[RAN]

Почта в подписи.
С вас "Что есть" + "Что надо".
Сроки - когда надо?
Цена - за мороженое не работаю.