Excel中通过VBA脚本访问Wincc数据库读取多变量脚本方法.docVIP

Excel中通过VBA脚本访问Wincc数据库读取多变量脚本方法 　　摘要通过Excel中的VBA（Visual Basic for Application）脚本读取Wincc数据库SQL server2005中的变量数据，实现了多时间段、各变量多数据类型的读取。 　　【关键词】EExcel VBA Wincc SQL server2005 　　Wincc是西门子公司与微软公司在工业自动化领域共同开发的人机界面软件(Human Machine Interface，简称HMI)。广泛用于在工业自动化系统中与PLC等基础自动化设备连接，提供操作员对自动化系统的监视、操作、报警、报表等人机对话功能。同时Wincc将变量归档的结果存储于SQL server中，便于其他程序对SQL server的操作。本文中Wincc的版本为6.2，附加的数据库版本是SQL Server 2005。 　　Microsoft SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能 (BI)工具提供了企业级的数据管理。Microsoft SQL Server 2005数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能。在本文中，SQL Server 2005是联系Wincc与Excel的桥梁和纽带。 　　Wincc在西门子工业自动化领域已经得到广泛的应用，各种各样的报表要求几乎都能满足。本文中从实际角度出发，提供一种直接使用Excel VBA编写客户端访问Wincc数据库SQL Server 2005的方法，针对用户对变量的要求，从数据库中同时挑选多个变量，不同的时间段、时间间隔，实现了不同要求的数据采集。本实例中提供了关键的Excel示例代码，有一定的实用价值。 　　1 数据采集软件的编写 　　本文中，Wincc作为上位机组态软件，将发出的指令与采集回来的数据经过变量归档实时地存入数据库SQL server2005中，为了便于不同专业科研人员对于数据的处理，利用Excel内嵌的VBA编程语言，对数据库内的数据进行采集。 　　打开excel，在视图选项栏下，首先录制一个空的宏，保存在当前工作簿中，然后选择查看宏，点击编辑，进入了VBA（Microsoft Visual Basic for Applications）界面，在ThisWorkBook中，写入Excel文件打开预代码Private Sub Workbook_Open()。 　　在Sheet1中写入数据库变量读取、写入代码 　　Sheets(1).Unprotect 工作表1解保护 　　dblStartTimeReadout = Now将当前时间记录 　　Rows(9:65536).Select 　　Selection.Delete Shift:=xlUp 　　Sheets(1).Cells(10，1).Select 　　Sheets(1).Rows(9).HorizontalAlignment = 3 　　Sheets(1).Rows(9).VerticalAlignment = 2 　　Sheets(1).Rows(9).RowHeight = 1 / 0.035 　　Sheets(1).Range(A:IV).ColumnWidth = 20 　　删除所有的以前记录的信息，本例中从第9行到65536行全部选中 　　删除所选单元格的内容，单元格或者区域以下内容向上移动 　　选中单元格第10行第一列表格 　　确定第九行的居中模式以及高度、宽度 　　Application.Calculation = xlManual 　　Application.Cursor = xlWait 　　关闭自动重算，这样就不会把时间浪费在每次改变单元格内容而引起的重算 　　鼠标显示为漏斗等待状态 　　strSQLServer = cmbTagServer.Text .List(cmbTagServer.ListIndex) 　　获取当前下拉列表中的标签值 　　Set objSQLServer = CreateObject(SQLDMO.SQLServer) 　　创建一个数据库服务器的应用程序名 　　objSQLServer.LoginSecure = True 　　objSQLServer.Connect ServerName:=strSQLServer \WinCC 　　Set objSQLDB = CreateObject(SQLDMO.Database) 　　For Each objSQLDB In objSQLServer.Databases 　　 If ((Right(objSQLDB.Name， 1) = R) And (Left(objSQLDB.Name， 2) = C