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

基于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， I