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

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

引言

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

1 解决问题的思路与方法

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

利用Ex中国科学院理化技术研究所高级工程师王格侠介绍cel强大的表格处理功能,根据需要事先设计出各种实用的空白工艺卡片模版,其表格组成应与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("plica2tio n")’创建Excel对象

Set ExBoo k= rkboo en("Excel工艺模版文件名")’打开工件簿文件

sible=True’设置Excel对象可见

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

2.2 MSFlex Grid的文本向Excel单元如何设计1款能满足各类样机抗冲击实验需求的落锤冲击实验机就遭到了业内各检测机构和同仁的广泛关注格的传送

在CAPP项目开发中,工艺卡片中的主要内容是文本和图形。其中,VB环境下的文本内容主要存于文本框和MSFlexGrid格控件中,其中又以MSFlex Grid格控件为主。下面以VB的MS2Flex Grid格控件向Excel单元格传送文本为例,介绍通用的程序代码。

以下代码将MSFlexGrid1格控件第1行、第1列至第1行、第4列的内容传送到Excel表的“e1”～“h1”的单元格中。i=1

Fo采取1般丝杠和梯形丝杠就能够到达软包装所要求的精度 r j=101 To 104‘101～104为字母e～h的

A SCII码值

r=Chr(j)&i

nge(r).Value=MSFlex Grid1.

Text Mat rix(i,j-100)

Next j

2.3 VB中的图形向Excel单元格的传送

在CAPP项目中所使用的各种工艺图形,均以文件的形式进行保存,本文使用的图形文件为Au2to CAD的dwg文件。若用变量Pict ure_name表示工艺卡片中插入的图形文件名(含路径),则可利用工作表的OLEObjects对象的Add方法,将此图形文件插入到Excel表格的某一单元格(如"a7")中,具体代码如下:

nge("a7").Activate

EObject d(FileName:=Pic2

t ure_name,Link:=Fal se).Select

需要说明的是,插入到Excel表格中的图形大小,可能与Excel模版中设定的图形区域不一致,可以在预览时(此时可通过代码自动打开所生成的Excel工艺卡片)进行如下调整:选中卡片中插入的图形;单击右键,在快捷菜单中选择“显示‘图片’工具栏”;利用图片工具栏中的“裁剪”和“压缩图片”按钮,将图片调整到合适尺寸。

2.4 已生成的Excel工艺表格的保存

以下代码将已生成的Excel工艺表格以文件的形式保存起来,供预览、打印及实际生产之用,并关闭Excel以及相应的工作薄和工作表。

splayAlert s=Fal se

veA s("生成的Excel工艺表格文件名")

ose

splayAlert s=True

Set Exboo k=Not hing

Set ExSheet=Not hing

Set Exapp=Not hing

3 预览及打印功能的实现

在VB环境下,利用OLE容器控件,调用Cre2ateLink方法可以在运行时从已生成的工艺卡片文件中创建一个链接对象[1],从而方便地打开已生成的Excel工艺表格,实现预览及打印,方法如下:在VB下建立一窗体(Name属性设置为Frm Excel),在其上放置一OL E控件(Name属性设置为Ole梯形丝杠1),然后在预览及打印菜单的相应事件过程中编写下列代码。

Frm eateLink"生成的Excel工艺卡片文件名"

Frm Verb‘运行时激活对象

4 结束语

通过VB和Excel的有机结合,充分发挥各自软件的优势和特色,使编程更加简练、实用,使复杂的表格处理更加简便。对于表格中的图形处理,由于采用了OLE技术,故表格中既可以插入常用的AutoCAD图形文件,也可以插入Pro2E,SoldWorkS等图形文件,使用户对图形软件的选择处于完全开放的状态,极大地方便了用户。(end)