基于Excel VBA开发的电缆号牌套管管理系统

潘有思　赵军伟　钟金金

摘 要：电缆敷设及接线一直是电厂电气仪控安装工作中最为繁琐、工作量最大的一项工作，该文针对电缆接线以及电缆号牌套管制作中存在的问题，利用Excel VBA（Visual Basic Application）语言开发出了一套电缆套管及号牌管理系统，并利用VB（Visual Basic）语言将其封装成可安装于Excel插件栏的软件，从而进行电缆清册、电缆接线图、电缆号牌以及套管模板的制作，将重复繁琐的工作交由程序完成，使技术准备工作自动化、模块化的处理，提高了效率，保证了准确性，达到节约成本的目的。

关键词：电缆接线 号牌套管 软件开发 Excel VBA

中图分类号：TM769 文献标识码：A 文章编号：1674-098X（2016）01（c）-0008-02

目前国内电力建设施工周期短，现场施工与设计院出图往往是同步进行，这就造成了施工技术人员前期的技术工作准备时间非常有限。再加上进度质量上的要求，就需要技术人员在保证质量的前提下快速地完成电缆清册的整理、电缆接线图的绘制、以及电缆号牌和套管的制作等工作。

目前，电缆清册、电缆接线图、电缆号牌以及电缆套管的制作都是停留在手动阶段，并且模板相对的不统一，每个工程在这些方面都要花费大量的人力和物力进行前期准备工作，为了能够更好地适应电力建设施工的需要，对于电缆敷设及接线的前期技术准备工作的自动化、模块化办公就显得尤为重要。因此，开发一款适用于此项技术工作的系统还是非常有必要的。笔者借助Office办公软件用VBA编程语言开发出统一的电缆号牌套管管理系统，进行电缆清册、电缆接线图模板、电缆号牌模板以及套管模板的制作。将大量的技术准备工作自动化、模块化的处理，提高效率，节约成本。

1 软件关键技术及功能介绍

1.1 关键技术及创新点

基于Office后台开发语言Excel VBA、Word VBA进行开发，然后利用Visual Basic 6.0将软件进行加密封装成可执行文件，安装后直接加载成至Excel插件栏；疏理电缆敷设和接线技术准备工作的流程，将画接线图过程中的重复操作模块化、自动化完成，以及将电缆号牌和套管批量化生成，减少了工作中大量手动的重复工作。

1.2 功能介绍

1.2.1 将整理的清册自动生成标准化接线图模板

此模块提供了电缆接线图自动生成的功能，将日常工作手动逐行插入和填写编号的工作进行自动化生成，避免了手动操作过程中的人为失误，并能够将此部分工作标准化处理。

1.2.2 将接线图自动生成電缆套管并按照电缆截面积分类

人工勾选电缆规格的方式来选择需要打印的电缆套管费事费力且易出错，此模块可以轻松按照电缆芯截面积筛选出需要打印的电缆套管，从而避免了漏选、错选等情况的发生。

1.2.3 将电缆清册直接生成起点、终点电缆号牌

此两个模块可以一键完成需要打印的电缆起点或者终点号牌，避免了以前同时生成起点终点号牌的不必要浪费。

1.2.4 将DCS测点清册直接生成接线图

此模块实现了设计院DCS测点清册到接线图的完整转化，完全不需要进行人工的任何处理，保证了接线图的准确性和完整性。

1.3 封装程序

Excel VBA实现了软件要求的所有功能，但为了使用户能够同使用其他普通软件一样在WINDOWS的开始程序菜单中点击执行，就必须编写一个能够实现自动加载的程序来达到这一目的：将所有功能加载至Excel插件。笔者按照用户一一对应的方式，利用VB语言将程序封装成可安装至Excel菜单栏的可执行文件，既安全可靠又方便操作。VB相关封装程序如下。其中安装后的操作界面如图1所示。

Sub BD（）'绑定硬盘序列号封装

Dim myhard As String

bl = True

If Len（Dir（“C：＼电缆号牌套管管理＼MIMI.dll”）） = 0 Then MsgBox “缺少文件C：＼电缆号牌套管管理＼MIMI.dll，当前程序不能用。”， vbOKOnly + vbInformation： bl = False： Exit Sub

Dim iRetVal As Long

Dim sID As String， retHardwareID As String

retHardwareID = String（256， vbNullChar）

iRetVal = GetHardwareID_vba（True， False， False， False， “R5LR-S4TQ”， retHardwareID） ‘硬盘

myhard = Left（retHardwareID， InStr（1， retHardwareID， vbNullChar） - 1）

If myhard = “128E-98FF-C394-1415” Then Exit Sub ‘硬盘序列号

bl = False

End Sub

2 预计达到的技术经济指标

疏理电缆敷设和接线技术准备工作的流程，将电缆清册、电缆接线图、电缆号牌以及电缆套管的制作等繁杂的操作模块化、自动化完成，减少工作中几乎所有的手工工作。软件投入使用后至少节省60%的时间，且大大提高了准确率。以一台机组为例，至少节约120个工日的费用，按照10个项目15台机组同时施工来计算，就可以减少1 800个工日，按400元/工日来计的话，直接经济效益就是72万元。

3 软件使用情况和存在问题

电缆号牌套管管理软件自2012年6月开发完成调试运行后一直使用至今，能够准确的、自动的、批量的完成电缆敷设和电缆接线前的所有繁杂重复的工作，极大程度地提高了技术人员的工作效率。事实证明，该系统已经实现了预期的所有功能；同时，经过十多个项目的技术人员的运行也充分证明了该系统具有很高的稳定性和可靠性。但在运行中，也存在一定的问题，由于号牌生成模块需要调用Word文件，因此，当数据量过大时，号牌生成速度会比较慢。这是以后需要加以改进之处。

4 结语

传统的方法是直接利用Excel手动来实现这一系列工作，其工作量大而繁琐，而且由于数据量大，也极易出错。该文中，该系统是集电缆清册制作，电缆接线图模板生成，电缆号牌以及电缆套管的制作为一体的电缆管理系统，将技术人员日常繁琐复杂的技术准备工作标准化、统一化、自动化的实现，最终达到提高生产效率，降低工作成本的目的，具有很高的实用价值。

参考文献

[1] 罗刚君.Excel VBA程序开发自学宝典[M].北京：电子工业出版社，2011：664-684.

[2] 朱培育，朱佳苗，赵俊香，等.Excel VBA数据处理软件开发[J].地震地磁观测与研究，2006（27）：108-115.

[3] 陆正荣.用VBA对Excel中电缆工艺结构计算的扩展[J].光纤与电缆及其应用技术，2006（5）：18-20.