300/400或者1500，在线监控时想把其中一些变量记录并保存到excel中，温度，压力之类的。西门子软件或者excel中需要添加什么东西，才能实现这功能。各位大侠！感谢！
最佳答案
小白怒答一波。
因为前两天刚好在写这个，且已经上线了。
首先，你是使用WinCC在线监控吗？如果是，下面的才有用，如果是其他VB之类的，对Excel的访问更简单，网上很容易找到资料。
对于WinCC访问Excel表格，可以参考
关于脚本实现对Excel读写操作可以借鉴以下链接中关于脚本对Excel的操作
https://support.industry.siemens.com/cs/cn/zh/view/77938393
我在WinCC里用一个按键实现的，新建一个按钮
属性→事件→然后在随便哪个动作上新添一个VBS事件。
On Error Resume Next”防止无进程时出错
Dim ExcelApp,ExcelBook
Set ExcelApp = GetObject(,"Excel.Application")
If TypeName(ExcleApp) = "Application" Then
For Each ExcelBook In ExcelApp.WorkBooks
If ExcelBook.FullName = "C:\Users\zz\Desktop\基础数据库–校准报告范本.xlsx" Then
ExcelApp.ActiveWorkbook.Save”如果已经被打开，则保存它
Exit For
End If
Next
End If
””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””
”打开Excel模板
On Error Resume Next
ExcelApp.Visible = True
ExcelApp.Workbooks.Open "C:\Users\zz\Desktop\基础数据库–校准报告范本.xlsx",0,0 ”以读写方式打开excel
ExcelApp.Worksheets(sheetname).Activate ”sheet1有效
””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””
”读写excel中的值
ExcelApp.worksheets ("sheetname").Cells(1, 1).VAlue = 12
小白经验，仅供参考，欢迎交流，学习学习。
参考资料：关于脚本实现对Excel读写操作可以借鉴以下链接中关于脚本对Excel的操作 https://support.industry.siemens.com/cs/cn/zh/view/77938393
提问者对于答案的评价：
谢谢
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc345528.html
微信扫一扫 
支付宝扫一扫 