我是想问下大神，我刚接手导师的wincc项目，我仅仅想试试在wincc中组态一个按钮通过vbs给excel写入一个值。
程序如下
Sub OnClick(Byval Item)
Dim fname
fname ="D:\Book1.xls"
Dim ObjEXcelApp
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.Open fname
ObjExcelApp.Worksheets("Sheet1").Activate
objExcelApp.Worksheets("Sheet1").Cells(5,3).Value =2
objEXcelApp.ActiveWorkbook.Save
objEXcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub
为什么运行后，再打开D盘的Book1后，里面什么都没有？
问题补充：
为什么用ApDiag诊断，诊断窗口也显示任何东西呢
最佳答案
这段脚本在WinCC里测试，能正常把数据写入Excel
建议你在画面里组态一个诊断窗口看看有什么提示
提问者对于答案的评价：
嗯，程序没问题，估计是excel版本的问题
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc254688.html
微信扫一扫 
支付宝扫一扫 