wps表格初级教程4

《wps表格初级教程4》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、WPS表格初级教程第九章delphi操作wps表格在很多人看来，wps表格2007与Excel外观相似，并且兼容性很强，这是wpsoffice2007的一大特色，其实我觉得wpsoffice2007的最大特色、最大进步是其强大的二次开发功能。它不仅有强大的二次开发功能，而且其二次开发方法与word、excel一样。以前我们常常见到一些管理类的软件中的一个功能，那就是数据导出到Excel,现在由于wpsoffice2007具有二次开发功能，我们也可以实现数据导出到wps表格了。附：在我们所设计的系列软件中，只要涉及到打印，都与wps表格有关系。在软件设

2、计之初，我们考虑用一般的报表控件的，如“水晶报表”、“ActiveReport”等，但这些控件的灵活性不太好，如页面设置，字体字号颜色设置，行高列宽设置等。当然，这些控件我们是能随心所欲的设计的，但设计好后就固定死了，用户是不能调整的，或调整的权限很少。为此我们多方研究，最终决定用wps表格来解决该软件的打印问题，用wps表格来作为我们的报表控件。用wps表格来做报表主要有以下优点：1.实现了导出到wps表格功能，在wps表格中，用户可以任意的排版打印，。2.实现了用wps表格套打。给用户一个wps表格文件，里面包括各种单据的样表，用户可以任意设置这

3、些样表，包括字体字号颜色，纸张大小，页边距，行高列宽等等，设置好后，保存。那么数据导出到wps表格时，就按用户设置好的样式导出了，然后打印即可。并且实现了在不用用户参与情况，软件自动调用用户设置的样表的样式，然后打印输出。设计过报表打印的朋友可能都知道，这个报表打印设计起来是很麻烦的，一个客户一个样，程序员的很大精力都放在打印上了，并且总也不能让用户满意。但在我们这个软件中，我们将软件的打印工作交给了wps表格与用户，与我们软件设计者没有关系了。到目前为止，没有一个客户因为打印效果不好而埋怨我们的软件，他们都会想办法自己解决。3.数据的二次计算。软件

4、设计人员设计的软件功能再丰富，总也有想不到的地方，这些问题如何解决？在这里，我们可以将数据导出到wps表格中后，进行二次计算，想怎么算就怎么算，想如何统计就如何统计，等于丰富了软件的功能。在这里非常感谢金山公司的员工，金山公司的员工给我们提供了很多技术支持，甚至帮我们写了一些源码。下面，我将我总结的delphi操作wps表格的经验整理出来，奉献给大家，希望与大家共同进步。一、启动delphi后，新建一个应用程序。将程序中的form1的标题改为delphi操作wps表格示例。如图9-1所示。图9-1二、在interface的uses中添加单元comob

5、j。如下所示。usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,comobj;三、定义wps表格变量，此处定义为全局的，以便调用。varForm1:TForm1;etapp:olevariant;myworkbook:OleVariant;//定义金山表格的工作簿对象1WPS表格初级教程implementation四、启动wps表格在form1窗口中添加一个按钮Button1，caption设置为标题。如图9-2所示。图9-2

6、然后设置该按钮的单击事件。procedureTForm1.Button1Click(Sender:TObject);beginetapp:=createoleobject('et.application');//启动wps表格end;此时，运行该程序，界面如图9-3，点击按钮，即可启动wps表格。图9-3五、关闭wps表格添加一个按钮，在它的单击事件中添加如下代码。procedureTForm1.Button2Click(Sender:TObject);beginetApp.Quit;//退出金额表格end;下面我们往窗体中添加如下按钮，并分别设置其

7、标题，如图9-4所示。2WPS表格初级教程图9-4六、wps表格窗口的隐藏procedureTForm1.Button4Click(Sender:TObject);beginetApp.Visible:=false;//窗口隐藏end;七、wps表格窗口的显示procedureTForm1.Button4Click(Sender:TObject);beginetApp.Visible:=true;//窗口显示end;八、新建工作簿procedureTForm1.Button9Click(Sender:TObject);beginmyworkbook:

8、=etapp.Workbooks.add;//添加工作簿end;九、打开指定工作簿procedureTFor