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显示空白字符串.
或者有没有其他方法。
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显示空白字符串.
或者有没有其他方法。
解决方案 »
- 我想实现对200台机器的监控,该怎么做呢?
- 问题解决啦散分 [HPDL380 5 服务器的缺陷]
- 我用uses引用gifimage.pas,它提示找不到gifimage.dcu文件.这要怎么处理啊?
- 如何将InterBase数据库转换为access数据库?
- 工具图标,急!
- dll里面的窗体创建调用释放关闭都没有问题,但是就是Tab键没有用了?!
- 物流企业解决方案
- 求助:关于Intraweb和TCPServer一起使用的问题。
- 关于数据库备份的问题?
- strtodatetime(ontime)<>StrToDateTime('1900-01-01')為什麼出錯??
- 屏幕取色后怎么恢复原状态WMEraseBkng(var MSg:TWMEraseBkgnd)
- IdHTTP GET方法,怎样转换URL中的参数
var
xlapp:OleVariant;
begin
xlapp:= GetActiveOleObject('Excel.Application' );
ShowMessage(xlapp.run('GetEnter'));
end;