Здравствуйте. У меня есть файл где 1 лист с таблицей из 11 колонок, в которую пополняются периодически данные (первый диапазон главный А1:А40 - серии, далее в каждом столбце свойства характеризующие каждую серию).Из нее должны переносится данные в другую книгу на 10 листов (каждый лист соответствует одному свойству), то есть переносится всегда 1й столбец А1:А40 и столбец с данными по критерию (он меняется на каждом листе). Возможно ли прописать такой макрос и чтобы при этом основная таблица не открывалась.
Я пробовала подобный макрос, и он работает, но я не могу прописать на все листы и по каждому критерию. Так только получается подтягивать данные в один столбец
Sub Get_Value_From_Close_Book_Formula() Dim sPath As String, sFile As String, sShName As String sPath = "C:\Documents and Settings\" sFile = "Книга1.xls" sShName = "Лист1" With Range("A1:A100") .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1:A100" .Value = .Value End With End Sub
Буду очень благодарна за помощь)
Здравствуйте. У меня есть файл где 1 лист с таблицей из 11 колонок, в которую пополняются периодически данные (первый диапазон главный А1:А40 - серии, далее в каждом столбце свойства характеризующие каждую серию).Из нее должны переносится данные в другую книгу на 10 листов (каждый лист соответствует одному свойству), то есть переносится всегда 1й столбец А1:А40 и столбец с данными по критерию (он меняется на каждом листе). Возможно ли прописать такой макрос и чтобы при этом основная таблица не открывалась.
Я пробовала подобный макрос, и он работает, но я не могу прописать на все листы и по каждому критерию. Так только получается подтягивать данные в один столбец
Sub Get_Value_From_Close_Book_Formula() Dim sPath As String, sFile As String, sShName As String sPath = "C:\Documents and Settings\" sFile = "Книга1.xls" sShName = "Лист1" With Range("A1:A100") .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1:A100" .Value = .Value End With End Sub