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

，

（衢州電力局變電工區，浙江衢州324000）

經驗交流

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

張文軍，管俊波

（衢州電力局變電工區，浙江衢州324000）

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

變電站；典型操作票；VB6.0；轉換

典票的管理和維護一直以來都是變電運行班組管理的重中之重，隨著安全生產管理系統（PSMS）的推廣，PSMS操作票模塊也逐步取代原有操作票系統而投入使用。另外，變電所運行管理規范要求經審批后的典票應作為新建變電所投運的必備條件之一，改、擴建工程典票的修改、審批應與設備投運同步。這就意味著運行人員要在有限的運行準備時間內必須將典票編寫、送審完成并導入生產管理系統。但傳統典票錄入效率非常低，已無法滿足電網規模擴大和運行模式轉變的需要。

1 傳統典票錄入方法面臨的問題

1.1 傳統的典票錄入方法

1.1.1 復制粘貼法

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

1.1.2 利用PSMS典票導入接口批量導入

將Word版典票另存為TXT文檔，然后將數據導入Excel表格，按照PSMS要求將典票轉換成最終格式，最后利用PSMS導入接口導入系統。PSMS典票模塊提供典票批量導入接口，但要求典票必須是Excel格式，衢州電力局典票都為Word格式，這2種格式間無法直接轉換。批量導入法雖然效率比復制粘貼法高，但操作相對復雜，且人工轉換典票格式依然耗時費力，容易出錯。

1.2 存在的問題

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

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

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

2 解決方案

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

2.1 典票格式特點

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

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

2.2 確定流程圖

圖1 Word版典票格式

圖2 PSMS典票接口要求格式

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

2.3 選擇編程軟件

VB6.0是微軟公司推出的一款可視化、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發Windows環境下的各類應用程序，且接口功能強大，可方便地調用Word與Excel等Office系列軟件，編程簡單，兼容性好，滿足編程需要。具體實現步驟如下：

（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）典型任務的判斷和處理。

Case wdOutlineLevel3’如果該段落大綱級別為3即操作任務

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

‘將段落內容作為表名

（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，釋放內存

Set wbook=Nothing

xlapp.Quit False’退出excel，釋放內存

Set xlbook=Nothing

Set xlapp=Nothing

End Sub

3 結語

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

圖4 典票格式轉換工具

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

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