利用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-），男，安徽安庆人，工程师，从事变电运行工作。