Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelApp
Dim i
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open "d:\zmx-1015-1.xls"
For i= 1 To 30
If HMIRuntime.Tags("zmxflag1").read <> objexcelapp.worksheets("sheet1").cells(i, 1).value Then
objExcelApp.Cells(i, 3).Value = HMIRuntime.Tags("zmxflag1").read
Exit For
End If
i=i
Next
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub
问题补充：
现象：循环没有问题
问题：if hmiruntime.tags("zmxflag1").read<>objexcelapp.worksheets("sheet1").cells(i,3).value then
可能是这个指令有问题
最佳答案
你没有说清楚你要实现的功能具体是什么，我已测试你的脚本，读写Excel文件都没有问题，比较实现的功能与脚本相符，具体见附件。
图片说明：
提问者对于答案的评价：
xx
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc264512.html
微信扫一扫 
支付宝扫一扫