引言

在進(jìn)行CAPP項(xiàng)目開(kāi)發(fā)時(shí),最終要生成多種工藝卡片。由于VB具有極強(qiáng)的界面設(shè)計(jì)能力,且易學(xué)易用,支持面向?qū)ο蟆⑹录?qū)動(dòng)、ActiveX技術(shù)以及強(qiáng)大的數(shù)據(jù)庫(kù)處理能力,很多用戶(hù)喜歡用VB作為CAPP項(xiàng)目的開(kāi)發(fā)語(yǔ)言。但VB的表格處理能力一般,特別是處理復(fù)雜表格時(shí),顯得力不從心。而Excel作為Micro sof t公司的表格處理軟件有著強(qiáng)大的功能。為此,在充分利用VB諸多優(yōu)點(diǎn)的基礎(chǔ)上,結(jié)合Excel的表格處理能力,成功解決了CAPP項(xiàng)目開(kāi)發(fā)中復(fù)雜表格生成這一難題。

1 解決問(wèn)題的思路與方法

首先利用VB強(qiáng)大的界面設(shè)計(jì)能力,在其開(kāi)發(fā)環(huán)境下用Label(標(biāo)簽)、Textbox(文本框)、Ole(用于嵌入圖片)、MSFlexGrid(網(wǎng)格)等控件“畫(huà)出”一張空白卡片,這張卡片是由各種控件組成的,可充分利用基于VB的CAPP系統(tǒng)強(qiáng)大的功能,進(jìn)行卡片內(nèi)容的快速填充和編輯,生成內(nèi)容上完全符合實(shí)際需要的“準(zhǔn)工藝卡”。由于其不是真正意義上的表格,而且目的在于利用CAPP系統(tǒng)強(qiáng)大功能進(jìn)行快速生成,所以并不適用于打印輸出和實(shí)際生產(chǎn)。

利用Excel強(qiáng)大的表格處理功能,根據(jù)需要事先設(shè)計(jì)出各種實(shí)用的空白工藝卡片模版,其表格組成應(yīng)與VB環(huán)境下對(duì)應(yīng)的表格完全相同。實(shí)際使用時(shí),只需調(diào)用需要的卡片模版,然后將CAPP系統(tǒng)生成的工藝表格中相關(guān)控件的內(nèi)容傳入Excel表格對(duì)應(yīng)的單元格,即可生成真正意義上的工藝卡片。

2 VB中各控件內(nèi)容向Excel表格中的傳送

由于Excel應(yīng)用程序是外部可創(chuàng)建對(duì)象,所以能從VB應(yīng)用程序內(nèi)部來(lái)程序化操作Excel,方法是利用VB的OLE自動(dòng)化技術(shù)獲取Excel的控制句柄,從而通過(guò)VB直接控制Excel的各種操作。由于對(duì)Excel的操作都是在VB的主界面下進(jìn)行的,用戶(hù)感覺(jué)就像使用VB自己的表格一樣,十分方便。

2.1 利用VB啟動(dòng)Excel并打開(kāi)對(duì)應(yīng)的工作薄和表

a.在工程中引用Micro sof t Excel類(lèi)型庫(kù)。從VB的“工程”菜單中選擇“引用”欄,選中Micro sof tExcel 11.0 Object Library(Excel 2003),然后單擊“確定”,表示在工程中引用Excel類(lèi)型庫(kù)。

b.在通用對(duì)象的聲明過(guò)程中定義Excel對(duì)象。

Dim ExApp A s Excel Applicatio n

Dim ExBoo k A s Excel Wo rkBoo k

Dim ExSheet A s Excel Wo rksheet

c.在程序中打開(kāi)已經(jīng)存在的Excel工件簿文件并設(shè)置活動(dòng)工作表。

Set ExApp=CreateObject("Excel.Applica2tio n")’創(chuàng)建Excel對(duì)象

Set ExBoo k=ExApp.Wo rkboo ks.Open("Excel工藝模版文件名")’打開(kāi)工件簿文件

ExApp.Visible=True’設(shè)置Excel對(duì)象可見(jiàn)

Set ExSheet=ExBoo k.Wo rksheet s("表名")’設(shè)置活動(dòng)工作表

2.2 MSFlex Grid的文本向Excel單元格的傳送

在CAPP項(xiàng)目開(kāi)發(fā)中,工藝卡片中的主要內(nèi)容是文本和圖形。其中,VB環(huán)境下的文本內(nèi)容主要存于文本框和MSFlexGrid網(wǎng)格控件中,其中又以MSFlex Grid網(wǎng)格控件為主。下面以VB的MS2Flex Grid網(wǎng)格控件向Excel單元格傳送文本為例,介紹通用的程序代碼。

以下代碼將MSFlexGrid1網(wǎng)格控件第1行、第1列至第1行、第4列的內(nèi)容傳送到Excel表的“e1”～“h1”的單元格中。i=1

Fo r j=101 To 104‘101～104為字母e～h的

A SCII碼值

r=Chr(j)&i

ExSheet.Range(r).Value=MSFlex Grid1.

Text Mat rix(i,j-100)

Next j

2.3 VB中的圖形向Excel單元格的傳送

在CAPP項(xiàng)目中所使用的各種工藝圖形,均以文件的形式進(jìn)行保存,本文使用的圖形文件為Au2to CAD的dwg文件。若用變量Pict ure_name表示工藝卡片中插入的圖形文件名(含路徑),則可利用工作表的OLEObjects對(duì)象的Add方法,將此圖形文件插入到Excel表格的某一單元格(如"a7")中,具體代碼如下:

ExSheet.Range("a7").Activate

ExSheet.OL EObject s.Add(FileName:=Pic2

t ure_name,Link:=Fal se).Select

需要說(shuō)明的是,插入到Excel表格中的圖形大小,可能與Excel模版中設(shè)定的圖形區(qū)域不一致,可以在預(yù)覽時(shí)(此時(shí)可通過(guò)代碼自動(dòng)打開(kāi)所生成的Excel工藝卡片)進(jìn)行如下調(diào)整:選中卡片中插入的圖形;單擊右鍵,在快捷菜單中選擇“顯示‘圖片’工具欄”;利用圖片工具欄中的“裁剪”和“壓縮圖片”按鈕,將圖片調(diào)整到合適尺寸。

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

以下代碼將已生成的Excel工藝表格以文件的形式保存起來(lái),供預(yù)覽、打印及實(shí)際生產(chǎn)之用,并關(guān)閉Excel以及相應(yīng)的工作薄和工作表。

Exapp.DisplayAlert s=Fal se

Exbook.SaveA s("生成的Excel工藝表格文件名")

Exbook.Close

Exapp.DisplayAlert s=True

Set Exboo k=Not hing

Set ExSheet=Not hing

Set Exapp=Not hing

3 預(yù)覽及打印功能的實(shí)現(xiàn)

在VB環(huán)境下,利用OLE容器控件,調(diào)用Cre2ateLink方法可以在運(yùn)行時(shí)從已生成的工藝卡片文件中創(chuàng)建一個(gè)鏈接對(duì)象[1],從而方便地打開(kāi)已生成的Excel工藝表格,實(shí)現(xiàn)預(yù)覽及打印,方法如下:在VB下建立一窗體(Name屬性設(shè)置為Frm Excel),在其上放置一OL E控件(Name屬性設(shè)置為Ole1),然后在預(yù)覽及打印菜單的相應(yīng)事件過(guò)程中編寫(xiě)下列代碼。

Frm Excel.Ole1.CreateLink"生成的Excel工藝卡片文件名"

Frm Excel.Ole1.DoVerb‘運(yùn)行時(shí)激活對(duì)象

4 結(jié)束語(yǔ)

通過(guò)VB和Excel的有機(jī)結(jié)合,充分發(fā)揮各自軟件的優(yōu)勢(shì)和特色,使編程更加簡(jiǎn)練、實(shí)用,使復(fù)雜的表格處理更加簡(jiǎn)便。對(duì)于表格中的圖形處理,由于采用了OLE技術(shù),故表格中既可以插入常用的AutoCAD圖形文件,也可以插入Pro2E,SoldWorkS等圖形文件,使用戶(hù)對(duì)圖形軟件的選擇處于完全開(kāi)放的狀態(tài),極大地方便了用戶(hù)。