利用VB技術(shù)提高PSMS典型操作票錄入效率

，

（衢州電力局變電工區(qū)，浙江衢州324000）

經(jīng)驗(yàn)交流

利用VB技術(shù)提高PSMS典型操作票錄入效率

張文軍，管俊波

（衢州電力局變電工區(qū)，浙江衢州324000）

變電站典型操作票模塊（以下簡(jiǎn)稱典票）傳統(tǒng)的錄入方法是人工復(fù)制粘貼，不僅效率低，還容易因疏忽造成典票錯(cuò)亂，給安全生產(chǎn)埋下重大隱患。利用VB6.0編制典票格式轉(zhuǎn)換工具，將Word版典票批量轉(zhuǎn)換成PSMS系統(tǒng)要求的Excel格式，再批量導(dǎo)入PSMS典票系統(tǒng)，不僅大幅提高了工作效率，而且杜絕了因人工失誤造成的安全隱患。

變電站；典型操作票；VB6.0；轉(zhuǎn)換

典票的管理和維護(hù)一直以來(lái)都是變電運(yùn)行班組管理的重中之重，隨著安全生產(chǎn)管理系統(tǒng)（PSMS）的推廣，PSMS操作票模塊也逐步取代原有操作票系統(tǒng)而投入使用。另外，變電所運(yùn)行管理規(guī)范要求經(jīng)審批后的典票應(yīng)作為新建變電所投運(yùn)的必備條件之一，改、擴(kuò)建工程典票的修改、審批應(yīng)與設(shè)備投運(yùn)同步。這就意味著運(yùn)行人員要在有限的運(yùn)行準(zhǔn)備時(shí)間內(nèi)必須將典票編寫(xiě)、送審?fù)瓿刹?dǎo)入生產(chǎn)管理系統(tǒng)。但傳統(tǒng)典票錄入效率非常低，已無(wú)法滿足電網(wǎng)規(guī)模擴(kuò)大和運(yùn)行模式轉(zhuǎn)變的需要。

1 傳統(tǒng)典票錄入方法面臨的問(wèn)題

1.1 傳統(tǒng)的典票錄入方法

1.1.1 復(fù)制粘貼法

打開(kāi)PSMS操作票模塊操作票維護(hù)欄，點(diǎn)擊典型任務(wù)步驟維護(hù)，新增典型任務(wù)后再將Word版典票中典型任務(wù)對(duì)應(yīng)的具體步驟一步步復(fù)制并粘貼到PSMS系統(tǒng)。復(fù)制粘貼法是典票錄入最常用的方法，操作簡(jiǎn)單但是速度慢，且由于長(zhǎng)時(shí)間重復(fù)性工作，容易出錯(cuò)。

1.1.2 利用PSMS典票導(dǎo)入接口批量導(dǎo)入

將Word版典票另存為TXT文檔，然后將數(shù)據(jù)導(dǎo)入Excel表格，按照PSMS要求將典票轉(zhuǎn)換成最終格式，最后利用PSMS導(dǎo)入接口導(dǎo)入系統(tǒng)。PSMS典票模塊提供典票批量導(dǎo)入接口，但要求典票必須是Excel格式，衢州電力局典票都為Word格式，這2種格式間無(wú)法直接轉(zhuǎn)換。批量導(dǎo)入法雖然效率比復(fù)制粘貼法高，但操作相對(duì)復(fù)雜，且人工轉(zhuǎn)換典票格式依然耗時(shí)費(fèi)力，容易出錯(cuò)。

1.2 存在的問(wèn)題

為估算典票錄入效率并找出兩種錄入方法存在的問(wèn)題，選用3名運(yùn)行人員對(duì)常用的兩種操作票錄入方法進(jìn)行了耗時(shí)測(cè)試，測(cè)試對(duì)象為仙霞變35 kV霞都3200間隔，共有典型操作任務(wù)14項(xiàng)，操作步驟82步，測(cè)試結(jié)果如表1所示。

表1 典票錄入方法耗時(shí)測(cè)試情況

通過(guò)測(cè)試，可見(jiàn)批量導(dǎo)入法雖比復(fù)制粘貼法效率高，但仍難以滿足當(dāng)前運(yùn)行模式需要。且批量導(dǎo)入法中98%左右的時(shí)間都耗費(fèi)在典票格式轉(zhuǎn)換和整理上，大量人工操作難免出現(xiàn)失誤，導(dǎo)致典票錄入錯(cuò)誤的發(fā)生。

2 解決方案

如果利用計(jì)算機(jī)技術(shù)編制一個(gè)軟件來(lái)實(shí)現(xiàn)典票格式的轉(zhuǎn)換和整理，剔除人工干預(yù)，則可大大提高工作效率，同時(shí)也可避免人工失誤帶來(lái)的典票錄入錯(cuò)誤。

2.1 典票格式特點(diǎn)

衢州電力局變電工區(qū)多年來(lái)一直強(qiáng)調(diào)典票格式的規(guī)范和統(tǒng)一（Word版），每年組織技術(shù)人員修訂、調(diào)整，并經(jīng)工區(qū)審核，220 kV變電所典票還經(jīng)局調(diào)度部門和生產(chǎn)處專職審核。因此，各變典票格式已經(jīng)規(guī)范化，而且正確率基本達(dá)到100%。主要格式如下：間隔名大綱級(jí)別為2，可據(jù)此判斷一個(gè)間隔典票的開(kāi)始；操作任務(wù)名大綱級(jí)別為3，可據(jù)此判斷某間隔中某一個(gè)典型操作任務(wù)的開(kāi)始；具體操作步驟大綱級(jí)別為10，可據(jù)此判斷此條數(shù)據(jù)為某間隔中某典型操作任務(wù)的一個(gè)具體步驟，見(jiàn)圖1。

PSMS典票模塊接口要求一個(gè)間隔的典票都放在同一個(gè)Excel工作薄內(nèi)（Excel版），每一個(gè)Sheet表對(duì)應(yīng)一個(gè)典型任務(wù)，表名即典型任務(wù)名。具體操作步驟放在Sheet表的第2列，序號(hào)放第1列，從第2行開(kāi)始讀取，見(jiàn)圖2。

2.2 確定流程圖

圖1 Word版典票格式

圖2 PSMS典票接口要求格式

鑒于Word版典票格式特點(diǎn)，可編程實(shí)現(xiàn)軟件后臺(tái)打開(kāi)Word典票，逐行讀取典票并依據(jù)PSMS典票接口要求格式進(jìn)行判斷并輸出到相應(yīng)Excel表格內(nèi)，這樣一個(gè)循環(huán)后得到的Excel工作薄即可滿足PSMS系統(tǒng)要求。具體流程見(jiàn)圖3。

2.3 選擇編程軟件

VB6.0是微軟公司推出的一款可視化、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，可用于開(kāi)發(fā)Windows環(huán)境下的各類應(yīng)用程序，且接口功能強(qiáng)大，可方便地調(diào)用Word與Excel等Office系列軟件，編程簡(jiǎn)單，兼容性好，滿足編程需要。具體實(shí)現(xiàn)步驟如下：

（1）后臺(tái)打開(kāi)Word，并新建Excel工作薄。

Dim wbook As New_word.Application′定義word，excel

Dim xlapp As Excel.Application

Dim xlbook As Excel.Workbook

Dim xlsheet As Excel.Worksheet

Set xlapp=New Excel.Application‘新建excel工作簿

圖3 流程圖

Set xlbook=xlapp.Workbooks.Add

Set xlsheet=xlapp.ActiveSheet

wbook.Documents.Open(Text1.Text)

wbook.Visible=False

（2）間隔的判斷和處理。

For l=1 To wbook.ActiveDocument.Paragraphs. Count‘從第一段到最后一段

Select Case book.ActiveDocument.Paragraphs（1）.OutlineLevel

Case wdOutlineLevel2’如果該段落大綱級(jí)別為2即間隔

g=g+1

If g＞1 Then

xlapp.Workbooks.Add

k=0

xlapp.ActiveWorkbook.Worksheets（1）.Delete

xlapp.ActiveWorkbook.Worksheets（2）.Delete

End If

（3）典型任務(wù)的判斷和處理。

Case wdOutlineLevel3’如果該段落大綱級(jí)別為3即操作任務(wù)

k=k+1

If k＞1 Then

xlapp.ActiveWorkbook.Worksheets.Add

End If

xlapp.Workbooks（g）.Worksheets（1）.Cells（12） =wbook.ActiveDocument.Paragraphs（l）.Range

‘將段落內(nèi)容作為表名

（4）具體步驟的判斷和處理。

Case wdOutlineLevelBodyText‘如果該段落為正文文本，即具體步驟

If len（wbook.ActiveDocument.Paragraphs（l）. Range）＞1 Then‘如果不為空行，則寫(xiě)入Excel

xlapp.Workbooks（g）.Worksheets（1）.Cells（m+ 1，2）=-wbook.ActiveDocument.Paragraphs（l）.Range xlapp.Workbooks（g）.Worksheets（1）.Cells（m+1，1）=m

m=m+1

End If

（5）程序錯(cuò)誤處理。

On Error GoTo errhandler errhandler:

MsgBox Err.Description,vbCritical,"錯(cuò)誤信息“

wbook.Quit False‘退出word，釋放內(nèi)存

Set wbook=Nothing

xlapp.Quit False’退出excel，釋放內(nèi)存

Set xlbook=Nothing

Set xlapp=Nothing

End Sub

3 結(jié)語(yǔ)

典票格式轉(zhuǎn)換軟件視窗見(jiàn)圖4，經(jīng)測(cè)試對(duì)比，原來(lái)人工需10.4 min才能完成的格式轉(zhuǎn)換，現(xiàn)在只需14 s即可完成，大幅提高了工作效率，且正確率100%，目前已在衢州電力局各運(yùn)行班組廣泛應(yīng)用。

圖4 典票格式轉(zhuǎn)換工具

[1]王琳燕.在VB6.0中利用對(duì)象技術(shù)調(diào)用OFFICE2000的方法[J].引進(jìn)與咨詢,2005（6）:56.

[2]王德群.在VB中運(yùn)用Windows消息機(jī)制[J].滁州師專學(xué)報(bào)，2001（3）:72-73.

（本文編輯：楊勇）

Improvement of Input Efficiency for Typical Operation Ticket of PSMS with VB Technology

ZHANG Wen-jun，GUAN Jun-bo
（Quzhou Electric Power Bureau，Quzhou Zhejiang 324000，China）

The traditional input method of typical operation ticket（hereinafter referred to as typical ticket）for substations is artificial copy and paste，which has the disadvantages of both low efficiency and causing typical ticket disorder easily because of negligence leading to hidden trouble for safe production.Using VB6.0 to develop the format conversion tool，which enables Word format typical ticket batch conversion into Excel format as PSMS system requires and then conduct batch input of the tickets into this system.It not only improves the work efficiency greatly but also eliminates the safety hazard due to artificial errors.

substation；typical operation ticket；VB6.0；conversion

TM631:TP391

：B

：1007-1881（2012）05-0058-04

2011-09-30

張文軍（1981-），男，安徽安慶人，工程師，從事變電運(yùn)行工作。