通过exce将变量导入wincc

关于博途15.1里wincc advanced,怎么通过Excel表格或者文本将里面的变量导入到wincc里?

钻石用户推荐最佳答案

可以用VBS脚本来实现,先给你贴一段代码,上全球技术资源搜关键字EXCEL能出来一堆文档可以学习。
也可以看看我这个帖子              
VB脚本对打开和关闭的EXCEL文件进行操作(基于博图WINCC)-技术论坛-工业支持中心-西门子中国 http://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1684050&b_id=5&s_id=17&num=0#anch


Dim filename,pathname
 filename=CStr(Year(Now)) & "年" & CStr(Month(Now)) & "月" & CStr(Day(Now)) & "日"
    pathname="C:\Users\DELL\Desktop\" & filename & ".xlsx"

Dim fso,myfile ''''''''定义文件对象及文件名变量
Set fso = CreateObject("scripting.FileSystemObject") ''''''''调用文件系统控件
Set myfile = fso.GetFile(pathname) ''''''''尝试按路径寻找文件

Dim ObjExcelApp ''''''''定义excel操作对象


Set ObjExcelApp = GetObject(, "Excel.Application") ''''''''判断是否有工作表打开


 Set ObjExcelApp = CreateObject("Excel.Application") 
ObjExcelApp.Workbooks.Open myfile 
SmartTags("编号")=ObjExcelApp.worksheets ("sheet1").Cells(SmartTags("编号")+1, 1).VAlue
ObjExcelApp.ActiveWorkbook.Save ''''''''保存表格
ObjExcelApp.Workbooks.Close ''''''''关闭表格
ObjExcelApp.Quit

提问者对于答案的评价:

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc367478.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 下午2:44
下一篇 2021年7月5日 下午2:44

相关推荐

发表回复

登录后才能评论