Здравсвуйте не могли бы помочь.
Есть макрос получения данных из закрытой книги.
Вот это макрос в принципе подходит только одно не хватает
sPath = "C:\Documents and Settings\" - это постоянное можно прописать в ручную.
sFile = "Книга1.xls" - Вот это я хочу чтоб название книги бралось из ячейки основной книги не могли бы вы подсказать как это сделать .
sShName = "Лист1" - - это постоянное можно прописать в ручную.
Есть макрос получения данных из закрытой книги.
| Код |
|---|
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"
Application.DisplayAlerts = 0
With Range("A1:A100" )
.Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "A1" '"
'"A1" - указывается начальная ячейка диапазона, из которого необходимо получить значения
.Value = .Value
End With
Application.DisplayAlerts = 1
End Sub |
Вот это макрос в принципе подходит только одно не хватает
sPath = "C:\Documents and Settings\" - это постоянное можно прописать в ручную.
sFile = "Книга1.xls" - Вот это я хочу чтоб название книги бралось из ячейки основной книги не могли бы вы подсказать как это сделать .
sShName = "Лист1" - - это постоянное можно прописать в ручную.
Изменено: - 23.09.2016 09:54:14