王 涛, 李孝明

(新疆八一钢铁股份有限公司轧钢厂)

前言

八钢热轧生产过程中，轧制工艺参数计算所需的区域跟踪、数据采集、自学习、工艺参数计算及下发均通过模型系统完成。模型系统是八钢1750热轧生产运行的核心，模型系统的顺行，需要工艺人员在生产过程、设备精度变化时及时跟踪、分析、调优。投产以来，模型系统经过升级扩充，目前能够处理125个出钢记号，每个出钢记号下又划分宽度层别6个、厚度层别7个、温度层别5个，累计叠加工艺参数的量超过1万个，这些参数存储在系统的Oracle数据库中。Oracle数据库操作比较专业，一般现场生产工艺人员还不熟悉。基于生产工艺人员最熟悉的处理数据的工具，如Office Excel，WPS的表格工具，让工艺人员用最熟悉的方式操作数据、处理问题，需要在专业数据库数据与办公表格之间建立连接，实现自如操作。

经过分析实践，八钢1750热轧厂工艺人员决定采用VBA技术解决模型数据信息化的方案。VBA(Visual Basic for Applications)是一种宏语言，是微软公司开发的在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言，主要能用来扩展Windows的应用程序功能。目前OFFICE Excel和WPS表格都支持VBA，可以通过ADO方式连接到Oracle并操作Oracle，结合Excel的数据处理与图表制作，就能让生产工艺人员轻松便捷的处理数据。

1 建立工作目标

基于VBA技术要求，八钢1750热轧厂工艺人员利用模型系统主要考虑三个方面：(1)模型自学习系数跟踪分析；(2)与质量密切相关的数据跟踪分析；(3)生产过程跟踪分析。

任何方面的工作内容都涉及到很多数据，以成品宽度为例，决定热轧成品宽度质量的要素包括板坯宽度、立辊各道次设定及实际测压量、粗轧道次、模型粗轧目标宽度、宽度自学习、精轧后机架轧制力偏差、活套设定、张力、操作工宽度干预量等，这些数据共同决定一块带钢的宽度质量，而宽度质量在实际工作中又需要研究头部、尾部及均值等。梳理出的热轧工艺控制要点与需要归集的工艺参数如表1所示。

表1 热轧工艺控制要点与需要归集的工艺参数

在确定了工艺控制要点与需要归集的工艺参数后，需要做的工作是如何按照卷号或者钢种规格进行数据匹配归集，如何通过VBA技术将存储在不同数据库中的关键相关数据自动采集，按钢卷号分钢种规格呈现在EXCEL表中。

2 用VBA技术处理Oracle数据库

2.1 使用VBA链接Oracle数据库，取得数据

使用VBA技术处理Oracle数据库中数据的流程：

(1)安装Oracle客户端软件，连接Oracle服务器。

(2)在EXCEL 或者WPS表格启用VBA功能；VBA不是EXCEL或者WPS的必备功能，需要安装时选择安装。

(3)在VBA中启动数据库连接支持。

VBA功能启用后在VBA菜单栏选择“工具”-“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 (如果不是这两个版本，则选择一个版本号最高的勾选即可)

图1 EXCEL WPS表格启用数据库连接

(4)连接Oracle数据库，打开数据表，提取数据到EXCEL表格中。

在按照上述步骤配置了环境支持后，就可以在VBA中就可以使用代码连接Oracle了。

①首先需定义连接对象：

Dim conn as ADODB.Connection

Set conn=new ADODB.Connection

②连接数据库

strConn = "Driver={Oracle in OraClient11g_home1};Dbq=TNS服务名;Uid=数据库登录账户;Pwd=数据库登录密码;"

conn.Open strConn' 打开数据库

③提起数据到EXCEL表中。

2.2 启用VBA的Application.ontime函数跟踪数据

生产单位一直在生产，为了及时跟踪数据，VBA程序需要自动运行，VBA中Application.ontime函数定时能够自动运行。

Sub 自动运行()

MyTime = Now + TimeValue("00:00:05" )

获取工艺数据

Application.OnTime MyTime, "自动运行"

[a1]= Now ‘单线程运行通过时间显示运行状态

End Sub

2.3 使用VBA ChartObjects对象绘制图表

数据图形化更能使过程一目了然，使用VBA 包含的Chartobjects可以方便的绘制图形。通过规划，可以通过Chartobjects设置图表的位置，图表类型，标题，X轴Y轴刻度，数据源，作图的每一个细节都在控制范围内。

图2 通过VBAChartObject用图表跟踪显示工艺参数

3 应用数据解决问题

结合经验逻辑，通过现场实际数据对数据进行自动判断，对可能造成缺陷的过程进行抓取，工艺人员根据提示进行验证，发现问题，快速解决。工艺控制过程判断系统提示如表2所示。

表2 热轧工艺控制过程缺陷判断逻辑表

4 结语

基于规律的认识是解决问题的方法之一。随着信息技术的发展，信息化越来越多应用到产品制造中，将对规律的认识转换成信息完成数据分析。很多编程语言都支持对EXCEL的二次开发，八钢1750热轧厂工艺人员选用EXCEL 、WPS内嵌的VBA语言进行工艺数据处理，易于学习掌握，使用便捷，提高了工作效率。