王　偉，陳慶峰，趙晶晶

(長春機械科學(xué)研究院有限公司，吉林 長春 130103)

Excel在傳感器檢測標定軟件中的應(yīng)用

王偉，陳慶峰，趙晶晶

(長春機械科學(xué)研究院有限公司，吉林 長春 130103)

摘要：Excel和傳感器檢測標定軟件結(jié)合使用，使得傳感器檢測標定數(shù)據(jù)記錄和計算變得方便快捷。本文簡要介紹了軟件的設(shè)計原理和Excel編程基礎(chǔ)知識。

關(guān)鍵詞：Excel；VB；傳感器；標定

1引言

通常，在傳感器進行檢測標定時，都是手工記錄測量數(shù)據(jù)、手工輸入到Excel中進行數(shù)據(jù)處理。所測各點的數(shù)據(jù)都是多位小數(shù)，輸入到Excel表中特別麻煩，常因為輸入出錯而反復(fù)修改，影響工作效率?，F(xiàn)在開發(fā)出一種測量標定軟件，將Excel編程和該軟件結(jié)合起來，由軟件自動完成數(shù)據(jù)記錄并填寫到Excel表格中，解決了手動輸入出錯的問題，提高了工作效率。

2軟件工作原理

軟件工作時，通過計算機串口和6000數(shù)字測量儀(或其它測量儀器)通信，采集傳感器各個測量點數(shù)據(jù)。軟件對采集來的數(shù)據(jù)進行格式化處理后，采取兩種方式送入Excel表格中，然后在Excel表中進行處理。工作原理圖如圖1所示。

圖1　工作原理

3Excel表編程基礎(chǔ)知識介紹

Microsoft Office中的Excel表在編程設(shè)計與常規(guī)軟件設(shè)計有很大區(qū)別，Microsoft公司為此給廣大編程愛好者創(chuàng)建了獨立完善的編程體系，使得編程愛好者很容易掌握和運用。

3.1激活一個工作簿

在VBA編程中，想要使用一個Excel表，首先需要激活此表。采用Activate進行激活，并將激活的工作簿放在活動窗口中。下面語句為激活工作簿 “Book1.xlsx”。

Workbooks("Book1.xlsx").Activate

3.2創(chuàng)建一個新的工作簿

在VBA編程中，想要創(chuàng)建一個新的工作簿，需要使用Add方法。下面語句為創(chuàng)建新工作簿，并將該工作簿命名為“工資”。

Workbooks.Add

Set xlBook = Workbooks.Add

xlBook.Title = "工資"

xlBook.SaveAs "工資.xlsx"

3.3打開一個工作簿

在VBA編程中，打開工作簿用Open方法，并且打開的工作簿是Workbooks集合中的一員。下面語句為打開指定位置文件夾內(nèi)的工作簿“工資.xlsx”。

Workbooks.Open("E:MyWorks “工資.xlsx”")

3.4用數(shù)字編號引用工作表

在Excel中，可以用編號來引用工作表。用Worksheets中的屬性，激活工作簿中的一張工作表。

Worksheets(1).Activate

如果要對所有類型的工作表操作，可以使用Sheets屬性。下面語句是激活工作簿中的第一張工作表。

Sheets(1).Activate ’激活第1張工作表

3.5用Cells屬性數(shù)字編號引用單元格

Excel表中有一個重要屬性，即Cells屬性，通過Cells的行號和列標來引用某一個單元格。Cells屬性返回代表單個單元格的 Range 對象。下面語句表示對工作表“Sheet2”上的單元格“B8”操作，并賦予 Value 屬性值為“工資”。

Worksheets("Sheet2").Cells(8,2).Value =“工資”

4編程實現(xiàn)

檢測標定軟件采用VB6.0開發(fā)設(shè)計。打開VB，新建一個工程命名為“數(shù)字測量儀標定軟件”的文件，添加需要的窗體，設(shè)計軟件界面和窗體布局，運行后的軟件主界面如圖2所示。要想在軟件中結(jié)合Excel進行編程，必須在VB設(shè)計環(huán)境中選擇“工程”菜單中“引用”選項，在彈出可引用對象對話框中選擇“Microsoft Excel 11.0 Object Library(計算機中安裝的Office版本不同會有所不同)”。只有引用了此類庫才能在軟件設(shè)計中對Excel表進行編程設(shè)計。

圖2　軟件界面

引用完成后，就可以在工程中添加一個模塊Module1，在模塊中聲明相關(guān)的數(shù)據(jù)結(jié)構(gòu)和變量，然后聲明Excel所需對象變量。

′聲明Excel對象

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook

Public xlSheet As Excel.Worksheet

這三個對象分別是Excel應(yīng)用對象、工作簿對象、工作表對象。

Excel對象聲明完就可以應(yīng)用對象對Excel表進行操作。Excel表編程可以形象地用圖3所示的流程來描述。軟件設(shè)計時，按照Excel表編程流程步驟就可以輕松完成。

圖3　流程圖

檢測標定軟件設(shè)計中，有很多涉及到數(shù)據(jù)采集、數(shù)據(jù)處理與6000數(shù)字測量儀之間的編程，這里不多贅述，而是主要針對Excel表如何編程加以描述。

下面子過程描述的是如何打開指定路徑上的指定Excel表，并且把表單1設(shè)置為活動工作表，然后激活表單準備使用。

′根據(jù)選擇的Excel表確定打開哪個表

Private Sub SelectTable()

′定義對象變量，創(chuàng)建Excel應(yīng)用類。

Set xlApp = CreateObject("Excel.Application") ′創(chuàng)建EXCEL應(yīng)用類

′要打開的Excel表所在路徑和表名

Set xlBook = xlApp.Workbooks.Open(App.Path &“” &ExcelTableName)

xlApp.Visible = True ′設(shè)置EXCEL對象可見(或不可見)

Set xlSheet = xlBook.Worksheets("sheet1") ′設(shè)置活動工作表

′激活工作表

xlSheet.Activate

End Sub

Excel表一旦激活，就可以向單元格中添加數(shù)據(jù)了。下面的for循環(huán)實現(xiàn)了將測量點標準值數(shù)據(jù)(如圖4所示)寫入對應(yīng)單元格中，同時保存工作表，把數(shù)據(jù)存儲在表中。

圖4　測量設(shè)置界面

For i = 0 To OperateSave.InputNum - 1

OperateSave.txtPNValue(i) = Val(txtStandardValue(i).Text)

′采用編號引用方式寫入單元格。

xlSheet.Cells(i + 11,1) = Val(txtStandardValue(i).Text)

′保存工作表及其表中數(shù)據(jù)

xlBook.Save ′保存

Next

軟件操作全部完成后，在軟件退出時，一定要關(guān)閉工作表，釋放對象變量所占用的資源。如下所示語句實現(xiàn)關(guān)閉和釋放等功能。

xlBook.Save ′保存

xlBook.Close (True) ′關(guān)閉工作簿

xlApp.Quit ′結(jié)束EXCEL對象

Set xlApp = Nothing′釋放xlApp對象

在軟件設(shè)計時，有時需要根據(jù)使用過程判斷Excel表是否已經(jīng)打開或者已經(jīng)關(guān)閉等，這里不再加以描述。

5結(jié)束語

應(yīng)用Excel軟件，可以方便地采集測量數(shù)據(jù)，并準確地將數(shù)據(jù)添加到Excel單元格中，方便測量人員進行數(shù)據(jù)處理，提高了工作效率。

參考文獻

[1]何光渝.Visual Basic常用數(shù)值算法[M].北京:科學(xué)出版社,2002.

[2]范逸之,陳立元.Visual Basic與RS-232串行通信控制(最新版)[M].北京:清華大學(xué)出版社,2002.

[3]張強,劉飚.Excel 2007與VBA編程從入門到精通[M].北京:電子工業(yè)出版社,2008.

Application of Excel to Calibration Software for Sensor

Wang Wei,Chen Qingfeng,Zhao Jingjing

(Changchun Research Institute for Mechanical Science Co.,Ltd.Changchun 130103,Jilin,China)

Abstract：The application of Excel to calibration software for sensor is introduced in the paper.The combination of Excel and calibration software makes the record and calculation of sensor calibration data convenient and fast.The design principle of software and the basic knowledge of Excel programming are introduced in brief.

Keywords:Excel;VB;sensor;calibration

[收稿日期]2016-02-24

[作者簡介]王偉(1976—)，男，軟件工程師，主要從事試驗機軟件開發(fā)與設(shè)計工作。

中圖分類號：TP274+.2

文獻標識碼：B

doi：10.3969/j.issn.1674-3407.2016.01.029