С Рождеством, уважаемые господа!
Вот пример вызова из Delphi6 макроса VBA Excel :

//******************
Wksheet: TExcelWorksheet;
Wkbook: TExcelWorkbook;
XlApp: TExcelApplication;
.......
Var
SomeStr : String;

procedure MyProc;
Var
NewValue : String;
begin
SomeStr := 'Hello!';
XlApp.Run('VBA_Sub',SomeStr);
NewValue := SomeStr;
end;
//***********************

Имеется макрос VBA_Sub, откуда надо вернуть в MyProc значение SomeStr = 'By!'

'**************************
Sub VBA_Sub(ByRef Vba_Param)
NewStr = Vba_Param
' ............. Здесь NewStr = "Hello!" (!!!)
Vba_Param = "By!"
End Sub
'***************************

Параметр передается по ссылке, но только в одну сторону. Почему SomeStr возвращается равным 'Hello!' вместо ожидаемого 'By!'?!

Вызываю тот же VBA_Sub из макроса Makros1:

'***********************
Sub Makros1()
Dim ActualParam as String
ActualParam = "Hello!"
Call VBA_Sub(ActualParam)
NewStr = ActualParam ' ........NewStr действительно равна "By!".
End Sub
************************

Что здесь неправильно? Как вернуть новое значение параметра?

Спасибо за внимание.

sergeyvqВы, батенька, немного покривили душой, надо бы написать в Excel так и тогда получается аналогичный результат

Function VBA_Sub(ByRef Vba_Param) As String
NewStr = Vba_Param
' ............. Здесь NewStr = "Hello!" (!!!)
VBA_Sub = "By!"
End Function

Как говаривал Ги де Мопассан - "Да здравствует маленькая разница!"
В Вашем варианте, уважаемый Sergeyvq, новое значение возвращает функция , но мне хотелось изменить и вернуть "By!" вместо "Hello!" для формального параметра VBA_Param .

Или я неверно понял описание ByRef?!
VBA Help
Sub Statement
..............
ByRef ---- Optional. Indicates that the argument is passed by reference . ByRef is the default in Visual Basic.
..............
by reference

A way of passing the address of an argument to a procedure instead of passing the value. This allows the procedure to access the actual variable. As a result, the variable's actual value can be changed by the procedure (выделение цветом - мое) to which it is passed. Unless otherwise specified, arguments are passed by reference.

Разумеется, можно построить и так, чтобы после анализа формального параметра внутри функции VBA в Delphi сама функция вернула нужное значение. Но я не о том спрашивал, согласитесь?

sergeyvq
Может такой вариант подойдет
в Delphi
NewValue := XlApp.Run('VBA_Sub',SomeStr);


Прошу простить, уважаемый sergeyvq, мою невнимательность. В самом деле, именно так и работает, через вызов функции с присвоением.

Что сказать? Я был не прав.
Вопрос снят.

Благодарю Вас за помощь. Всего Вам самого светлого!