Добрый день!
Хотел попросить о помощи:
У меня есть 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 листа нового шаблона
Спасибо заранее тому, кто сможет подсказать.
Заранее спасибо тут не котируется.
Если платно - пишите. Сделаю.
Стоимость и сроки?
Почта в подписи.
С вас "Что есть" + "Что надо".
Сроки - когда надо?
Цена - за мороженое не работаю.