Freelance 800F 通过OPC在Execl中生成历史数据报表.docVIP

Freelance 800F 通过OPC在Execl中生成历史数据报表 本文通过举例说明如何在Excel中编写VBA程序，通过OPC通信采集Freelance 800F系统中的数据，并生成生产报表。 由于本试验中Freelance OPC服务器和Excel运行在同一台PC上，故不涉及有关OPC的DCOM设置。 在CBF项目树中组态一个OPC网关 新建一个项目，在项目树下插入网关站，命名为OPCS 双击该网关站，设置参数，选择类型为：OPC-网关 在硬件组态中插入一个网关硬件，并指定资源到项目树中的OPCS网关站 运行：开始程序ABB Industrual ITFreelance 800F V8.2Configure，启动配置程序，添加OPC服务器的资源ID，本例为25。 在项目树中插入一个过程站PS1，在硬件组态中插入一个仿真控制器，并指定其资源到PS1，在资源PS1上创建10个变量用于OPC通信。 变量名 数据类型 资源 v_OPC1 REAL EMU v_ OPC 2 REAL EMU v_ OPC 3 REAL EMU v_ OPC 4 REAL EMU v_ OPC 5 REAL EMU v_ OPC 6 REAL EMU v_ OPC 7 REAL EMU v_ OPC 8 REAL EMU v_ OPC 9 REAL EMU v_ OPC 10 REAL EMU 在PS1中编写下列程序，用于仿真变量的变化： 3. 在网络中设置OPC网关站和仿真控制器的IP地址和资源ID，切换到联机调试模式，加载网关站和仿真控制器。 新建一个Excel文件，命名为“report_OPC.XLS”如下图所示，调整编辑单元格，并在“位号栏”中输入前面定义的10个变量名。 使用Excel VBA编写宏，完成OPC数据访问和定期生成报表文件功能 5.1 本例中创建Auto_open，OPC_Macro，Recorddate，Refrash，SheetSave和Updata六个宏，程序执行流程如下： Auto_open Auto_open 启动 OPC_Macro初始化OPC通信 OPC_Macro 初始化OPC通信 Refrash设定数据刷新时间 Refrash 设定数据刷新时间 Updata更新实时数据 Updata 更新实时数据 Yes当前时间为整点？当前时间为0.01？SheetSave保存日报文件Recorddata记录整点数据 Yes 当前时间为整点？ 当前时间为0.01？ SheetSave 保存日报文件 Recorddata 记录整点数据 No No Yes Yes No No 5.2 通过Execl的菜单命令：Tools－Macro－Visual Basic Edtor打开VBA编辑器，在VBA编辑器中通过Tools－Reference菜单命令，打开Reference对话框，选中Freelace 2000 OPC Automation2.0和OPCDisp，点击OK添加这两个引用。 5.3 在VBA项目中插入一个模块，双击该模块，打开VBA代码编辑器，在代码的最前面声明下面的全局变量： Option Explicit Dim Server As IOPCServerDisp 服务器对象 Dim ServerName As String 服务器名称 Dim Group As IOPCItemMgtDisp 组对象引用 Dim ServerUpdateRate As Long ·服务器数据更新速率 Dim ServerGroupHandle As Long 服务器中组句柄 Dim NrOfItems As Long 通过OPC访问的数据项总数 Dim ItemIDs() As String OPC数据项 Dim ActiveStates() As Boolean 数据项活动状态数组 Dim ClientHandles() As Long 数据项客户端句柄 Dim AccessPaths() As String 数据项访问路径 Dim RequestedDataTypes() As Integer 数据项响应的数据类型 Dim ItemErrors As Variant 数据项故障代码 Dim ServerHandles As Variant 服务器句柄 Dim ItemObjects As Variant 数据项索引 Dim Quality() As Integer 数据品质状态数组 Dim RecordF