找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
'Example 1: MS Excel
'In this example, an output value from an input field is written in an Excel table.
'VBS113
Dim excelapp
Dim aa,bb,cc
Set excelapp = CreateObject("Excel.Application")
Set aa = HMIRuntime.tags("tag1")
excelapp.visible = False'True
excelapp.workbooks.open "D:\excel.xls"
bb = Now 'getcurrent_datetime()
aa.Read
MsgBox CStr(bb)
excelapp.cells(1,1).value = "rrrrrr"'111111
excelapp.cells(1,2).value = CStr(bb)
excelapp.cells(2,2).value = CStr(aa.value)
excelapp.cells(3,2).value = CInt(aa.value)
excelapp.cells(4,2).value = CSng(aa.value)
excelapp.cells(5,2).value = CDbl(aa.value)
excelapp.cells(6,2).value = CLng(aa.value)
excelapp.cells(3,3).value = ScreenItems("33").outputvalue
excelapp.cells(4,4).value = ScreenItems("35").outputvalue
cc = "D:\excel" + Mid(CStr(bb), 1, 4)+ Mid(CStr(bb), 6, 2)+ Mid(CStr(bb), 9, 2)+ Mid(CStr(bb), 12, 2)+ Mid(CStr(bb), 15, 2)+ Mid(CStr(bb), 18, 2) + ".xls"
MsgBox cc
excelapp.DisplayAlerts = False '对打开的文件,直接保存时,避免弹出对话框窗口,而是直接覆盖
excelapp.activeworkbook.saveas cc '根据当前日期时间,另存为新的文件
'excelapp.activeworkbook.save ’对打开的文件,直接保存
'excelapp.activeworkbook.saveAs "D:\excelcopy.xls" ’直接另存为新的文件
excelapp.workbooks.close
excelapp.quit
Set excelapp = Nothing
下面的例子是基于MP277 Touch面板的。所有支持SOAP功能的面板都可以能够实现。
Excel 模板:
附件1: SOAP-Calls.zip ( 14 KB )
编号. 步骤
1 在WinCC flexible中组态:
在项目管理器下 "设备 > 设备设置 > 运行系统服务" 您需要选中 Sm@rtAccess: Web service (SOAP).
( 19 KB )
图. 01
注意:
所需授权: WinCC flexible /Sm@rtAccess for Panel
2 面板上的设置:
设置以太网连接:
如何集成一个面板到本地网络中的详细描述请参考条目号: 13336639
查看/改变设备名:
打开面板上的"Control Panel"
下的"System > Device Name" 您可以查看/修改设备名称。
例如,将名称改为“MyMP277”
3 计算机设置:
经过(SOAP)服务访问Windows CE面板数据,只能使用“name resolution”。
作如下设置:
改变Imhosts文件:
打开lmhosts文件(例如,使用Notepad 或者 WordPad)。
您可在下面的路径中找到lmhosts文件C:\WINNT\System32\drivers\etc.
在lmhosts文件中输入面板的IP地址和名称(设备名)。
在这个例子中如下: "192.168.0.210 MyMP277"
这条确保计算机能够在本地网络中基于面板的IP地址和设备名能够准确地查找/设置面板。
( 30 KB )
图. 02
这就完成计算机上设置。
注意:
lmhosts文件经常作为lmhosts.sam使用,这里的".sam"代表实例。为了确保Windows能够正常应用,您必须修改“.sam”后缀,否则Windows将忽略该文件。
4 在Excel模板中的设置:
在Excel模板中,在“Device Name”下输入操作面板的设备名。该例中为 “MyMP277” (并非是操作面板的IP地址)。
读取一个变量的值:
在"Tag name"下, 您输入带双引号的变量名"..." - 例如。 “Tag_01” .
将值写入变量:
在“Tag name”下,您可以直接输入变量名 - 无需添加引号 ("...") - 例如。 Tag_02.
( 18 KB )
图. 03
点击"Execute GetValue"按钮,相关的变量值将在"Return value"下的区域显示。
如果连结无效,则消息“Error-Runtime is offline"消息将显示在该区域中。
注意:
Excel模板“Soap-Calls.xls”包含一个脚本。
您可以在Excel编辑器重打开脚本“Tools > Macro > Visual Basic Editor”并且进行相应的编辑(增加更多的IO域等等)。
5 当使用文件夹时的特殊点:
在WinCC flexible组态,如果变量是在一个文件夹中创建,那么您必须在"Excel SOAP"模板中指定, 为"Read the Value of a Tag" 和 "Write a Value to a Tag" 的输入为由略微不同。
读取一个变量的值: "Path Name\\Tag Name"
(双反斜线 " \\ ")
将值写入变量: "Path Name\\Tag Name"
(单反斜线 " \ ")
( 18 KB )
图. 04
注意:
更多信息可参考手册“WinCC flexible Getting Started Options”条目号: 18657078.
转自:mugui
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!