报这一行出错
Set oExcel = CreateObject("Excel.Application")
当我改成这样时，第二行就报错了，仿真的时候倒没有这个问题，
倒出现了Write变量没有声明
Dim fso,myfile
Set fso = CreateObject("scripting.FileSystemObject")
Set myfile = fso.GetFile("\Storage Card USB\data.xls")
Dim ObjExcelApp
Set ObjExcelApp = CreateObject("Excel.Application")
脚本是这个里面的https://www.ad.siemens.com.cn/club/bbs/post.aspx?a_id=1266491&b_id=5&s_id=17&num=12#anch
萌新还在学习中，望大佬多多指教
图片说明：
最佳答案
TP900运行环境是windows CE系统，仿真运行环境是windows NT系统，它们之间的VBS功能是有区别的，不能照抄。
WinCC (TIA 博途)提供了哪些 VBS 信息和 VBS 编程工具？
https://support.industry.siemens.com/cs/cn/zh/view/59885894
如何使用 SIMATIC WinCC (TIA Portal) 在面板上通过脚本执行向文件中写数据和从文件中读数据的操作？
https://support.industry.siemens.com/cs/cn/zh/view/59604194
WinCC 脚本使用方法和技巧 (TIA Portal )
https://support.industry.siemens.com/cs/cn/zh/view/57132412
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc366946.html
微信扫一扫 
支付宝扫一扫 