关于博途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