Здравствуйте. Подскажите пожалуйста, как присвоить значение ячейке закрытой книги. Через пользовательскую функцию.
Пробую следующим образом:
Используется так: =SetCellCloseBook("C:\2.xls";"Лист3";"C2";"F4")
Не получается( и к тому же необходимо включить в коде обработку ошибок.
Спасибо!
Пробую следующим образом:
Код |
---|
Function SetCellCloseBook(sWb As String, sShName As String, sAddress As String, sCell As String) End Function Dim objCloseBook As Object Set objCloseBook = GetObject(sWb) objCloseBook.Sheets(sShName).Range(sAddress).Value = Range(sCell).Value objCloseBook.Save SetCellCloseBook = "OK" End Function |
Используется так: =SetCellCloseBook("C:\2.xls";"Лист3";"C2";"F4")
Не получается( и к тому же необходимо включить в коде обработку ошибок.
Спасибо!