如何用DELPHI得到EXCEL工作表sheet1内的自定义宏函数的返回值？

Question

EXCEL工作表sheet1内有如下一个自定义宏函数
Function GetEnter()
    GetEnter = "kwwl"
End Function
===================================var
  Range:ExcelRange;  WorkSheet:ExcelWorksheet;
  EventString:string;
begin
  WorkSheet:=ExcelApplication.ActiveWorkbook.ActiveSheet as ExcelWorksheet;
  EventString:=VarToStr(ExcelApplication.Run(WorkSheet.CodeName+'.GetEnter'));
  MessageBox(0,PChar(eventstring),'a',0);
End;
====================================
如何用DELPHI得到EXCEL工作表sheet1内的自定义宏函数的返回值？上面eventstring显示空白字符串.
或者有没有其他方法。

Answer 1

procedure TForm1.btn2Click(Sender: TObject);
var
  xlapp:OleVariant;
begin
  xlapp:= GetActiveOleObject('Excel.Application' );
  ShowMessage(xlapp.run('GetEnter'));
end;