(广东电网有限责任公司惠州供电局 516000)
摘要:除了定值单编号和站名、设备名称两个要素,定值单命名还应该给我们的定值相关工作带来便利性,简单说是定值单的名称在长度合理的情况下可以包含工作中常需要的信息的关键字
关键词:定值单命名;规则;作废定值单;保护装置型号
目前保护定值整定中,整定人员是将通过计算确定保护定值各项目的具体数值,形成一个定值单文档,将通过系统发送到继保人员,由继保人员现场打印并执行新的定值。定值单文档命名目前并无统一的规范,而定值单档的命名却与定值的整定、流转以及后续的存档、查询都有一定的关联,因此,如何给定值单命名,制定一个方便定值单管理的规则来约束定值单的命名是一个值得探讨的问题。
首先定值单一个最重要区分要素是定值单编号,定值单编号相当于定值单的身份证,因此定值单编号毫无疑问应该列入定值单文档的命名之中。但是定值单编号只是一个数字编号,获得定值单编号并不能直接知道这份定值是用在哪个站,用于哪套保护的。我们实际工作常常需要快速获得某套具体设备的定值,如果不提前知道该套设备的定值单编号,是无法凭定值单编号得知该套设备的定值单具体是哪个文件的,所以站名与设备名称也应该加入文档的命名中来。
除了上述定值单编号和站名、设备名称两个要素,定值单命名还应该给我们的定值相关工作带来便利性,简单说是定值单的名称在长度合理的情况下可以包含工作中常需要的信息的关键字,如工作中常按保护装置型号来排查定值,可以在定值单名称中加入装置型号这一字眼。
最后,定值单文档的命名应该具有连续性,即上一份定值单的编号也可以包含在定值单名称中,这样方便继保人员在执行时核对上一份定值单,以免关键信息丢失。
定值单流转系统
所以定值单文档的名称可以按如下规则进行命名:站名+电压等级+线路名(或单元名)+型号+新定值单号+作废定值单号。
为了定值命名时方便,可在定值单文档中加入以下代码,自动生成固定格式的定值单,参考代码如下:
Dim AF7 As String
AF7 = ActiveSheet.Range("AF7")'获取原定值单编号单元格
Dim AF8 As String
AF8 = ActiveSheet.Range("AF8")'获取作废定值单编号单元格
ActiveSheet.Range(AF8)= ActiveSheet.Range(AF7)'将原定值单编号写到作废定值单编号单元格
ActiveSheet.Range(AF7)= ActiveSheet.Range("AF9")& ctiveSheet.Range("AG9")'将新定值单编号写到作废定值单编号单元格
Dim name As String
ActiveSheet.Range("AD16")= ActiveSheet.Range("AE4")& "站10kV" & ActiveSheet.Range("AE5")& "保护" & ActiveSheet.Range("AH4")& "定值" & ActiveSheet.Range(AF7)& "作废" & ActiveSheet.Range(AF8) ‘按站名+10kV+线路名+型号+新定值单号+作废定值单号命名新的定值单文档
name = ActiveSheet.Range("AD16")
Path = ActiveWorkbook.Path
母体 = ActiveWorkbook.name
ActiveWorkbook.SaveAs Filename:=Path & "\" & name & ".xls" ‘生成新的定值单文档。
定值单通过了固定格式命名后,再通过字段分析,可以给我们带来工作上的许多便利。如将定值单文件夹下的定值单文件名都提取出来并排序:
CommandButton1.Left = 400
n = 1
Path = ActiveWorkbook.Path
myfile = Dir(Path & "\*.*")‘获得当前目录
Do While myfile <> ""‘获取一个文件名
If InStr(1,myfile,"作废")= 0 Then GoTo 111‘通过关键字“作废”判定是否为定值单
myfile = Left(myfile,Len(myfile)- 4)'去掉".xls"‘去掉不必要的文件名后缀
Cells(n,1)= myfile‘将文件名写入excel文档
n = n + 1
111
myfile = Dir '找寻下一个文件
Loop‘将定值单文件名全部提取出来后结束本循环
n = 1
m = 1
Do While Cells(n + 1,1)<> 0
m = n
Do While Cells(m + 1,1)<> 0
a = Mid(Cells(n,1),InStr(1,Cells(n,1),"作废")- 4,4)‘通过关键字“作废”提取定值单编号
b = Mid(Cells(m + 1,1),InStr(1,Cells(m + 1,1),"作废")- 4,4)‘通过关键字“作废”提取定值单编号
If a > b Then‘比较上下两个定值单编号大小,如果前面的比后面的大,刚调换位置,实现定值单文件名按从小到大排列
c = Cells(n,1)
Cells(n,1)= Cells(m + 1,1)
Cells(m + 1,1)= c
End If
m = m + 1
Loop
n = n + 1
Loop
End Sub
提取并按定单号顺序排列的定值单文件名
结语:通过定值单的规范命名,能让我们直接通过定值单文档获得定值单对应设备所在的站点、电压等级、保护型号、定值单编号以及上一份定值单编号等,同时也为后期定值单上传、检索、分析等带来许多便利。
参考文献:
[1]Excel VBA 编程实战宝典 伍远高 清华大学出版社
[2]Excel VBA 程序开发自学宝典(第3版)罗刚君 电子工业出版社
论文作者:梁景棠,时泽锟,王浩岩
论文发表刊物:《河南电力》2019年5期
论文发表时间:2019/11/20
标签:定值论文; 编号论文; 文档论文; 名称论文; 文件名论文; 单号论文; 设备论文; 《河南电力》2019年5期论文;