基于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.