Получить возвращаемое значение функции из Run

Question

Я запускаю макрос Excel из макроса Outlook, и мне нужно получить возврат макроса Excel. Код

мой взгляд макроса выглядит следующим образом:

Dim excelApp As Object 

Set excelApp = CreateObject("Excel.Application") 
excelApp.Workbooks.Open "C:\Users\meej\Documents\Book1.xlsm" 

If excelApp.Run("ThisWorkbook.Foo", true) Then 
    Debug.Print "TRUE" 
Else 
    Debug.Print "FALSE" 
End If 
excelApp.Quit 
Set excelApp = Nothing 

My Excel Macro выглядит следующим образом:

Public Function Foo(ByVal result as Boolean) as Boolean 
    Foo = result 
    MsgBox Foo 
End Function 

Мои MsgBox выскакивает и показывает верно, но в Outlook, я всегда печатать "FALSE". Я злоупотребляю Run?

Answer 1

У другого есть еще более подробный ответ, но вкратце ваша логика звучит. У Ive всегда были проблемы с вызовом пользовательских функций от ThisWorkbook. Используя ваш точный код, который я смог получить эту работу, перемещая код в модуль

If excelApp.Run("Module1.Foo", true) Then 

Это question показывает аналогичный вопрос пытается использовать функции из ThisWorkbook как формулы

Answer 2

я использовал метод Application.Run в контексте Excel и MS Project. Кажется, что нет способа вызвать FUNCTION из Excel в файле MS Project, а не запускать метод. Позже я нашел работу вокруг позволяя Excel общаться с MS-Project:

ИЗ Excel:

Function doSomethingInProject() 

Dim params(0 To 1) As String 
params(0) = "Some param" 
params(1) = "RETURN_VALUE" 

Dim prj As Object 
Set prj = CreateObject("msproject.application") 

prj.FileOpen Name:=filename, ReadOnly:=False, FormatID:="MSProject.MPP" 
prj.Application.Run "runTheMethod", params 

prj.FileSave 
prj.FileClose 
prj.Quit 

Msgbox "return value is " & params(1) 

End Function 

в рамках проекта:

Sub runTheMethod(ByRef params) 

'do stuff with params(0) 
params(1) = "Return any value" 

End Sub 

Я надеюсь, что кто-то помогает, для меня это заняло немного времени, чтобы понять это :)

С уважением

Joerg