WinCC和EXCEL数据传递

1、1、DDE简介动态数据交换（DDE ）是基于 Windows 的消息机制，两个 Windows 应用程序通过相互之间传递消息进行这两个程序被分别称为 “服务器 ”和“客户”。DDE 服务器是一个维护着其他Windows 程序可能使用的数据程序，而客户则是从服务器获得这些数据的程序。“对话 ”，DDEDDE 对话是由客户程序发动的。 客户程序将一条称为WM_DDE_INTITIATE的消息发给当前运行的所有Windows程序，这条消息指明了客户程序所需要的数据类别，拥有这些数据的DDE服务器可以响应这条消息，这样一个对话就开始了。DDE 的对话方式有 3 种: 服务器数据变化时，直接把数据送给客户，由客户对这些数据进行处理，这类对话方式称为热链；服务器的数据变化时，服务器通知客户，再由客户取数据，这种方式称为温链；由客户申请数据、服务器发送数据的方式称为冷链。一、 Wincc 作为 DDE的客户端， Excel作为DDE服务器（本地）1、在变量管理上按鼠标右键添加新的驱动程序选“windows dde.chn”图 12、在 DDE 上按鼠标右键新驱动程序连接点属性，在其连接属性中：“计算

2、机名称”为空；“应用程序”为excel ；“主题”为 工作表名，比如DDE.xlssheet1。图 23、在DDEexcel下建变量，在变量属性中选择地址，条目名称填：r 行数c 列数，比如r1c1 （表示第一行第一列的单元格），重复步骤3 可以加入更多的DDE变量图 34、 Excel 程序图 4Wincc 程序图 5 完成用 OPC 做比较省事。WinCC 做 OPC Server ，Excel 做 OPC Client 。这种情况下， WinCC 端不需要做任何设置，只要在Excel 里用少量的代码就能实现双方的通讯。对于 WINCC 与 S7-300 的通讯，首先要确定 PLC 的通讯口类型， PLC 一般都集成了MPI/DP 口，还可以安装通讯模块。计算机（ PC）上安装适当的通讯卡（不同的通讯卡支持的通讯协议不同）。看你需要啦！其次是 WINCC 软件里的通讯协议要与PC 机对应。 WINCC 提供了 SIMATIC S7 PROTOCOL SUITE通讯驱动程序，包含了多种通讯协议！最终还有自己亲自实际操作了才有深刻的了解的！Sub X6309X94AE9X0000X65

3、39_OnClick(Byval Item)Dim fso,my fso = CreateObject(scripting.)Set MyFile = fso.GetFile(d:Excelcode.xls)Dim ObjExcelAppSet objExcelApp = CreateObject(Excel.Application)objExcelApp.Visible = TrueobjExcelApp.Workbooks.Open MyFile上面的程序段是为了打开d 盘下叫 Excelcode.xls 名字的 excel 文件objExcelApp.worksheets (sheet1).Cells(1, 1).VAlue = HMIRuntime.Tags(usercodenew1).readobjExcelApp.ActiveWorkbook.Save上面两行的作用是将wincc 变量 usercodenew1 的值写到 Excel 表中的 A1 格子里面，并且保持一下Dim coldoldSet coldold=HMIRuntime.Tags(usercodeold1)c

4、oldold.Value = objExcelApp.worksheets (sheet1).Cells(1, 1).value 上面这两句的作用是将刚才保持到Excel 表格中的数据重新读回wincc ，存到 usercodeold1 变量中，当然现在其实并没有存入 usercodeold1 变量，只是存在了叫coldold 的临时变量里面objExcelApp.Workbooks.CloseobjExcelApp.QuitSet ObjEXceLapp = Nothing到这里为止，我们可以通过上面的语句关闭刚才打开的excel 程序了coldold.Write最后是把读到的excel 值从临时变量 coldold 中写入它对应的 usercodeold1 变量中End Sub上面这个例子已经调试通过。网上有很多wincc 值写入 excel 中的例子，一直找不到从excel 中读取数据到 wincc 中的例子，结合网上朋友的一些经验，这里给出个小例子，供大家参考。估计考虑到后些天要用到 EXCEL与 WINCC的通讯 , 我看了些书 , 在西门子的论坛上看到了一个现场做好的通讯成

5、功例子 . 通过自己来做 , 通讯成功 .例子地址 : d=53940&s_id=0&num=49#anch现总结一下 :1 WINCC作为 OPC服务器 , 勿需添加 OPC通道 . 在例子中 , 只在内部变量中 , 建立 6个内部变量 , 内部变量为有符号的 16 位数 , 名称分别为 ,a,b,c,d,e,f.( 当然如果身边有 PLC在, 可以建立过程变量 , 为了方便运行 , 建立内部变量 ), 分别在 a,b,c,d,e,f 中的限制 / 报表中 , 设置其开始值 , 为 1,2,3,4,5,6.注意 : 计算机 - 属性中的计算机名称要与本计算机名称一致在 WINCC中建立一页面 , 用按钮来改变 a,b,c,d,e,f 的值 , 如果通讯成功 , 在EXCEL中也会随之改变 .2 新建立一个 EXCEL文件 , 打开文件 , 工具 - 宏-VB 编辑器 , 打开 EXCEL的 VB编辑器 .3 在 VB编辑器里 , 工具 - 引用 , 在弹出窗口中 , 找 Siemens OPC DAAutomation 2.0, 勾上 :)4 双击 sheet1, 打开 sheet1

6、 的代码窗口 , 然后将程序 ( 程序代码在页面的最后 ) 复制到代码窗口 .5 在 EXCEL的上分别对应C2- 计算机名 C3-a C4-b C5-c C6-d C7-e C8-f6 在 EXCEL总, 工具 - 宏 , 选择 sheet1.startclient,启动7 完了代码 :Option Explicit Option Base 1Const ServerName = OPCServer.WinCC Dim WithEvents MyOPCServer As OPCServer Dim WithEvents MyOPCGroup As OPCGroup Dim MyOPCGroupColl As OPCGroupsDim MyOPCItemColl As OPCItems Dim MyOPCItems As OPCItems Dim MyOPCItem As OPCItem Dim ClientHandles(6) As Long Dim ServerHandles() As LongDim Values(1) As VariantDim Errors() As Long

7、Dim ItemIDs(6) As StringDim GroupName As StringDim NodeName As StringDim itemv(6) As VariantDim ii As Integer- Sub StartClient() 目的：连接至 OPC_server，创建组和添加条目-Sub StartClient() On Error GoTo ErrorHandler-可以自由选择 ClientHandle和For ii = 1 To 6ClientHandles(ii) = iiNext iiGroupName = MyGroup-从单元“ A1”得到 ItemIDNodeName = Range(c2).ValueItemIDs(1) = Range(c3).ValueItemIDs(2) = Range(c4).ValueItemIDs(3) = Range(c5).ValueItemIDs(4) = Range(c6).ValueItemIDs(5) = Range(c7).ValueItemIDs(6) = Range(c8).Value-得到一个 OPC服务器的实例GroupName-为添加组设置缺省的激活状态MyOPCGroupColl.DefaultGroupIsActive = True-添加组至收集Set MyOPCGroup = MyOPCGroupColl.Add(GroupName)Set MyOPCItemColl = MyOPCGroup.OPCItems-添加一个条目、返回ServerHandlesMyOPCItemColl.AddIte

《WinCC和EXCEL数据传递》由会员大米分享，可在线阅读，更多相关《WinCC和EXCEL数据传递》请在金锄头文库上搜索。