潘有思　趙軍偉　鐘金金

摘 要：電纜敷設(shè)及接線一直是電廠電氣儀控安裝工作中最為繁瑣、工作量最大的一項工作，該文針對電纜接線以及電纜號牌套管制作中存在的問題，利用Excel VBA（Visual Basic Application）語言開發(fā)出了一套電纜套管及號牌管理系統(tǒng)，并利用VB（Visual Basic）語言將其封裝成可安裝于Excel插件欄的軟件，從而進(jìn)行電纜清冊、電纜接線圖、電纜號牌以及套管模板的制作，將重復(fù)繁瑣的工作交由程序完成，使技術(shù)準(zhǔn)備工作自動化、模塊化的處理，提高了效率，保證了準(zhǔn)確性，達(dá)到節(jié)約成本的目的。

關(guān)鍵詞：電纜接線 號牌套管 軟件開發(fā) Excel VBA

中圖分類號：TM769 文獻(xiàn)標(biāo)識碼：A 文章編號：1674-098X（2016）01（c）-0008-02

目前國內(nèi)電力建設(shè)施工周期短，現(xiàn)場施工與設(shè)計院出圖往往是同步進(jìn)行，這就造成了施工技術(shù)人員前期的技術(shù)工作準(zhǔn)備時間非常有限。再加上進(jìn)度質(zhì)量上的要求，就需要技術(shù)人員在保證質(zhì)量的前提下快速地完成電纜清冊的整理、電纜接線圖的繪制、以及電纜號牌和套管的制作等工作。

目前，電纜清冊、電纜接線圖、電纜號牌以及電纜套管的制作都是停留在手動階段，并且模板相對的不統(tǒng)一，每個工程在這些方面都要花費大量的人力和物力進(jìn)行前期準(zhǔn)備工作，為了能夠更好地適應(yīng)電力建設(shè)施工的需要，對于電纜敷設(shè)及接線的前期技術(shù)準(zhǔn)備工作的自動化、模塊化辦公就顯得尤為重要。因此，開發(fā)一款適用于此項技術(shù)工作的系統(tǒng)還是非常有必要的。筆者借助Office辦公軟件用VBA編程語言開發(fā)出統(tǒng)一的電纜號牌套管管理系統(tǒng)，進(jìn)行電纜清冊、電纜接線圖模板、電纜號牌模板以及套管模板的制作。將大量的技術(shù)準(zhǔn)備工作自動化、模塊化的處理，提高效率，節(jié)約成本。

1 軟件關(guān)鍵技術(shù)及功能介紹

1.1 關(guān)鍵技術(shù)及創(chuàng)新點

基于Office后臺開發(fā)語言Excel VBA、Word VBA進(jìn)行開發(fā)，然后利用Visual Basic 6.0將軟件進(jìn)行加密封裝成可執(zhí)行文件，安裝后直接加載成至Excel插件欄；疏理電纜敷設(shè)和接線技術(shù)準(zhǔn)備工作的流程，將畫接線圖過程中的重復(fù)操作模塊化、自動化完成，以及將電纜號牌和套管批量化生成，減少了工作中大量手動的重復(fù)工作。

1.2 功能介紹

1.2.1 將整理的清冊自動生成標(biāo)準(zhǔn)化接線圖模板

此模塊提供了電纜接線圖自動生成的功能，將日常工作手動逐行插入和填寫編號的工作進(jìn)行自動化生成，避免了手動操作過程中的人為失誤，并能夠?qū)⒋瞬糠止ぷ鳂?biāo)準(zhǔn)化處理。

1.2.2 將接線圖自動生成電纜套管并按照電纜截面積分類

人工勾選電纜規(guī)格的方式來選擇需要打印的電纜套管費事費力且易出錯，此模塊可以輕松按照電纜芯截面積篩選出需要打印的電纜套管，從而避免了漏選、錯選等情況的發(fā)生。

1.2.3 將電纜清冊直接生成起點、終點電纜號牌

此兩個模塊可以一鍵完成需要打印的電纜起點或者終點號牌，避免了以前同時生成起點終點號牌的不必要浪費。

1.2.4 將DCS測點清冊直接生成接線圖

此模塊實現(xiàn)了設(shè)計院DCS測點清冊到接線圖的完整轉(zhuǎn)化，完全不需要進(jìn)行人工的任何處理，保證了接線圖的準(zhǔn)確性和完整性。

1.3 封裝程序

Excel VBA實現(xiàn)了軟件要求的所有功能，但為了使用戶能夠同使用其他普通軟件一樣在WINDOWS的開始程序菜單中點擊執(zhí)行，就必須編寫一個能夠?qū)崿F(xiàn)自動加載的程序來達(dá)到這一目的：將所有功能加載至Excel插件。筆者按照用戶一一對應(yīng)的方式，利用VB語言將程序封裝成可安裝至Excel菜單欄的可執(zhí)行文件，既安全可靠又方便操作。VB相關(guān)封裝程序如下。其中安裝后的操作界面如圖1所示。

Sub BD（）'綁定硬盤序列號封裝

Dim myhard As String

bl = True

If Len（Dir（“C：＼電纜號牌套管管理＼MIMI.dll”）） = 0 Then MsgBox “缺少文件C：＼電纜號牌套管管理＼MIMI.dll，當(dāng)前程序不能用?！?， 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 預(yù)計達(dá)到的技術(shù)經(jīng)濟(jì)指標(biāo)

疏理電纜敷設(shè)和接線技術(shù)準(zhǔn)備工作的流程，將電纜清冊、電纜接線圖、電纜號牌以及電纜套管的制作等繁雜的操作模塊化、自動化完成，減少工作中幾乎所有的手工工作。軟件投入使用后至少節(jié)省60%的時間，且大大提高了準(zhǔn)確率。以一臺機(jī)組為例，至少節(jié)約120個工日的費用，按照10個項目15臺機(jī)組同時施工來計算，就可以減少1 800個工日，按400元/工日來計的話，直接經(jīng)濟(jì)效益就是72萬元。

3 軟件使用情況和存在問題

電纜號牌套管管理軟件自2012年6月開發(fā)完成調(diào)試運行后一直使用至今，能夠準(zhǔn)確的、自動的、批量的完成電纜敷設(shè)和電纜接線前的所有繁雜重復(fù)的工作，極大程度地提高了技術(shù)人員的工作效率。事實證明，該系統(tǒng)已經(jīng)實現(xiàn)了預(yù)期的所有功能；同時，經(jīng)過十多個項目的技術(shù)人員的運行也充分證明了該系統(tǒng)具有很高的穩(wěn)定性和可靠性。但在運行中，也存在一定的問題，由于號牌生成模塊需要調(diào)用Word文件，因此，當(dāng)數(shù)據(jù)量過大時，號牌生成速度會比較慢。這是以后需要加以改進(jìn)之處。

4 結(jié)語

傳統(tǒng)的方法是直接利用Excel手動來實現(xiàn)這一系列工作，其工作量大而繁瑣，而且由于數(shù)據(jù)量大，也極易出錯。該文中，該系統(tǒng)是集電纜清冊制作，電纜接線圖模板生成，電纜號牌以及電纜套管的制作為一體的電纜管理系統(tǒng)，將技術(shù)人員日常繁瑣復(fù)雜的技術(shù)準(zhǔn)備工作標(biāo)準(zhǔn)化、統(tǒng)一化、自動化的實現(xiàn)，最終達(dá)到提高生產(chǎn)效率，降低工作成本的目的，具有很高的實用價值。

參考文獻(xiàn)

[1] 羅剛君.Excel VBA程序開發(fā)自學(xué)寶典[M].北京：電子工業(yè)出版社，2011：664-684.

[2] 朱培育，朱佳苗，趙俊香，等.Excel VBA數(shù)據(jù)處理軟件開發(fā)[J].地震地磁觀測與研究，2006（27）：108-115.

[3] 陸正榮.用VBA對Excel中電纜工藝結(jié)構(gòu)計算的擴(kuò)展[J].光纖與電纜及其應(yīng)用技術(shù)，2006（5）：18-20.