Рассмотрим этот код:
Public Function HelloWorld() As String
On Error GoTo ErrorHandler
Application.Workbooks("test.xlsm").Worksheets("Sheet1").Activate
Application.Workbooks("test.xlsm").Worksheets("Sheet1").Range("A1").Value = "Hello World"
HelloWorld = "Success"
Exit Function
ErrorHandler:
HelloWorld = Err.Description
End Function
Когда я запускаю это в IDE разработчика с помощью F5 / F8, он помещает «Hello World» в ячейку A1 по желанию. Но когда я запускаю это в электронной таблице с помощью «= HelloWorld ()», я получаю ошибку «Ошибка приложения или объекта».
Чего мне не хватает?
Заранее спасибо!