利用VB与Excel快速生成工艺卡片的方法

在进行CAPP项目开发时,最终要生成多种工艺卡片。由于VB具有极强的界面设计能力,且易学易用,支持面向对象、事件驱动、ActiveX技术以及强大的数据库处理能力,很多用户喜欢用VB作为CAPP项目的开发语言。但VB的表格处理能力一般,特别是处理复杂表格时,显得力不从心。而Excel作为Micro sof t公司的表格处理软件有着强大的功能。为此,在充分利用VB诸多优点的基础上,结合Excel的表格处理能力,成功解决了CAPP项目开发中复杂表格生成这一难题。 

1 解决问题的思路与方法 

首先利用VB强大的界面设计能力,在其开发环境下用Label(标签)、Textbox(文本框)、Ole(用于嵌入图片)、MSFlexGrid(网格)等控件“画出”一张空白卡片,这张卡片是由各种控件组成的,可充分利用基于VB的CAPP系统强大的功能,进行卡片内容的快速填充和编辑,生成内容上完全符合实际需要的“准工艺卡”。由于其不是真正意义上的表格,而且目的在于利用CAPP系统强大功能进行快速生成,所以并不适用于打印输出和实际生产。 

利用Excel强大的表格处理功能,根据需要事先设计出各种实用的空白工艺卡片模版,其表格组成应与VB环境下对应的表格完全相同。实际使用时,只需调用需要的卡片模版,然后将CAPP系统生成的工艺表格中相关控件的内容传入Excel表格对应的单元格,即可生成真正意义上的工艺卡片。 

2 VB中各控件内容向Excel表格中的传送 

　　由于Excel应用程序是外部可创建对象,所以能从VB应用程序内部来程序化操作Excel,方法是利用VB的OLE自动化技术获取Excel的控制句柄,从而通过VB直接控制Excel的各种操作。由于对Excel的操作都是在VB的主界面下进行的,用户感觉就像使用VB自己的表格一样,十分方便。 

2.1 利用VB启动Excel并打开对应的工作薄和表 

a.在工程中引用Micro sof t Excel类型库。从VB的“工程”菜单中选择“引用”栏,选中Micro sof tExcel 11.0 Object Library(Excel 2003),然后单击“确定”,表示在工程中引用Excel类型库。 

b.在通用对象的声明过程中定义Excel对象。

Dim ExApp A s Excel Applicatio n

Dim ExBoo k A s Excel Wo rkBoo k

Dim ExSheet A s Excel Wo rksheet 

c.在程序中打开已经存在的Excel工件簿文件并设置活动工作表。

Set ExApp=CreateObject("Excel.Applica2tio n")’创建Excel对象

Set ExBoo k=ExApp.Wo rkboo ks.Open("Excel工艺模版文件名")’打开工件簿文件

ExApp.Visible=True’设置Excel对象可见

Set ExSheet=ExBoo k.Wo rksheet s("表名")’设置活动工作表