Delphi和Office程序开发

领测软件测试网

3．3第三种方法：使用createoleobject将启动office，然后以ole方式对office进行控制。以excel表格为例（表格的格式可以是事先设定好的，也可以是自己自由定义的，这里以事先设定好表格的格式为例），进行说明：


（1） 在uses中添加comobj类；


（2） 申请一个全局变量：fvexcel ，类型为variant; 表示是excel对象


（3） 定义一个函数用来启动excel，如定义function openexcel(strfilename : string) : boolean;


function tform1. openexcel(strfilename : string) : boolean;


begin


result := true;


try


fvexcel := createoleobject(excel.application);

文章来源于领测软件测试网 https://www.ltesting.net/