VB程序开发在电缆标牌制作中的应用

VB程序开发在电缆标牌制作中的应用
摘要：电缆敷设是电缆工程施工中的重头戏，从检测、入库、运输再到敷设，要规范每一道工序，项目部都严格做好记录。

在检测阶段，安质员严格测试电缆的质量；在敷设阶段，施工人员详细登记好电缆的序号和日期，以及用在哪个标段、多少公里处，并给它们上好电缆标牌。

电缆标牌是电缆的‘户口’，必须记录详细，按照程序严格保管。

只有这样才能把好它们的来龙去脉，保证质量不出问题。

关键词:VB应用;电缆标牌；电缆工程；蜀河水力发电厂
一、电缆标牌的规定：
（1）在电缆起止点，电缆接头应装设标志牌。

（2）标志牌上应注明电缆的编号，型号，规格和起止点。

标志牌上字迹应打印。

二、电缆标牌制作状况
1、以前的光、电缆牌都是过塑或定做的回来用记号笔手写。

定做成本过高、耽误工期. 而且时间一长写得就变的模糊看不清楚，特别是环境相对较差的人井，根本无法辨认。

2、现在部分项目已开始采用打印机（M-300）通过与电脑连接,在硬质的PVC 板,软质的标签上印字, 无需制版，克服以往订制标牌的繁琐、费时。

该机采用热转印方式，字迹清晰，坚固耐久。

电缆缆标牌打印机方便的现场制作电缆标识,克服人工手写的不规范,使标识更美观长久.是自制标牌的理想工具。

以上两种情况，第2种与在第1种相比，质量外观上均有很大进步，但都有一个共同的缺点：效率低下！
三、VB开发程序提高电缆标牌制作效率
1、打印机（M-300）打印电缆标牌，首先是在Word下制作专用的格式文档（如图1所示）与标牌大小保持一直，再通过相应驱动程序驱动打印机打印出标牌的。

在Word下输入电缆的编号，型号，规格和起止点等文字制作电缆标牌打印文档工作量巨大。

图1
2、为方便统计，我们制作的电缆清册电子文档基本上都是Excel格式文件
（如图2所示），在制作电缆标牌打印文档时，部分项目为提高工作效率，将电缆的编号，型号，规格和起止点从Excel文档复制粘贴到Word下制作电缆标牌打印文档。

这样工作效率提高不多，同样电缆太多（大项目电缆成千上万根是可想而知）时，很容易出错。

图2
3、利用VB编程提高效率
1）、电缆标牌打印文档制作思路：打开Excel格式电缆清册电子文档－〉打开Word文档－〉设置文档专用格式－〉依次读取Excel格式电缆清册电子文档中电缆的编号，型号，规格和起止点单元格内容再写入Word文档。

2）、具体步骤如下：（代码如下）
（1）、打开已有的Excel文件
Set oldxls = CreateObject(“Excel.Application”) …连接Excel应用程序monDialog1.Filter = “Excel文件|*.xls”
oldxls.Workbooks.Open FileName:=monDialog1.FileName
（2）、连接至Word 应用程序
Set wD = CreateObject(“word.Application”)
（3）、设置文档专用格式
With wD.ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0.15)
.BottomMargin = CentimetersToPoints(0.12)
.LeftMargin = CentimetersToPoints(1.1)
.RightMargin = CentimetersToPoints(0)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
.PageWidth = CentimetersToPoints(7)
.PageHeight = CentimetersToPoints(2.5)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.LinesPage = 4
.LayoutMode = wdLayoutModeLineGrid
End With
（4）、读取Excel格式电缆清册电子文档中单元格内容并写入Word文档
wD.Selection.Ty peText Text:=“电缆名称:”+oldsheet.Cells(rwIndex,2+0).Value wD.Selection.TypeText Text:=“型号及规格:”+oldsheet.Cells(rwIndex,2+ 1).Value
wD.Selection.TypeText Text:=“起点:” + oldsheet.Cells(rwIndex, 2 + 2).Value wD.Selection.TypeText Text:=“终点:” + oldsheet.Cells(rwIndex, 2 + 3).Value
3）、程序编好后，经调试无误编译成可执行文件，即可运行了。

四、程序的使用
1、下载解压后得到以下文件
图3
2、双击setup文件安装完成后，点击开始－〉所有程序－〉电缆Lable图标文件启动电缆字牌导出程序。

程序主界面如下：
图4
3、点击“打开电缆清册Excel文件”按钮，打开电缆清册文件（如图2所示），将要要导出字牌的电缆清册内容复制到临时表“Hgg2279”（如图5所示）对应区域中。

图5
4、点击“导出Word字牌文档”按钮，程序将自动生成电缆标牌打印Word文档（如图1所示），只要选择对应的M-300打印机就可以打印出电缆标牌了。

要打印电缆另一端的标牌，请在“起止选择”标签中单选起点－〉终点切换。

五、后记
本程序在陕西蜀河电站2#、5#、6#机组电缆工程施工，对加快施工进度起
到了重要的作用。

根据相应电缆清册制作的标牌，出错率为0%，大大提高了效率，大大降低了人力资源的投入，缩短了工期，节约了成本！
参考文献：
[1]Julitta Korol.MS Excel2002 VBA/XML Programming and ASP[M].
USA:Wordware Publishing,Inc.(November 2002)
[2]陈向荣.VB与Excel二次开发[M].厦门：福建电脑，2005年第3期
[3]Paul Lomax.VB与VBA技术手册[M].北京：中国电力出版社，2002
[4]Microsoft公司著，希望图书创造室译.Visual Basic6.0组件工具指南.北京：北京希望电子出版社，1999。