，

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

經(jīng)驗交流

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

張文軍，管俊波

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

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

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

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

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

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

1.1.1 復(fù)制粘貼法

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

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種格式間無法直接轉(zhuǎn)換。批量導(dǎo)入法雖然效率比復(fù)制粘貼法高，但操作相對復(fù)雜，且人工轉(zhuǎn)換典票格式依然耗時費力，容易出錯。

1.2 存在的問題

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

表1 典票錄入方法耗時測試情況

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

2 解決方案

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

2.1 典票格式特點

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

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

2.2 確定流程圖

圖1 Word版典票格式

圖2 PSMS典票接口要求格式

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

2.3 選擇編程軟件

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

（1）后臺打開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’如果該段落大綱級別為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’如果該段落大綱級別為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‘如果不為空行，則寫入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）程序錯誤處理。

On Error GoTo errhandler errhandler:

MsgBox Err.Description,vbCritical,"錯誤信息“

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é)語

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

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

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

[2]王德群.在VB中運用Windows消息機制[J].滁州師專學(xué)報，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-），男，安徽安慶人，工程師，從事變電運行工作。