大侠给看看错在哪里了?wincc excel

按照资料上的例子,做了这样一个程序,添加的for和if语句后,不能执行,而且excel打开了,关闭不了。
目的是打开excel后,先判断将要写入的位置是否为空,如果为空,则将i\o域的值写入,如果不为空,查看下一行是否为空,一直到为空的时候写入i\o域的值。

图片说明:

大侠给看看错在哪里了?wincc excel   

最佳答案

两个同样的问题,这是找答案的缺陷,同一问题提出后只有一次补充说明的机会。
Dim objExcelApp,i,j
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
''ExcelExample.xls is to create before executing this procedure.
''Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "d:\dd.xls"
If HMIRuntime.Tags("NewTag_14").read=1 Then

For i=1 To 10

If objExcelApp.worksheets("sheet1").Cells(i,1).VAlue ="" Then
j=i
Exit For 
End If
Next

End If
objExcelApp.worksheets("sheet1").Cells(j,1).VAlue =HMIRuntime.Tags("NewTag_14").read
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

提问者对于答案的评价:
你好,我把下面的程序放在按钮的鼠标中执行,出现的结果是,按一下,打开一次excel文件“zmx02.xls”,而且全是可以看到的,后面打开的全是只读文件,单元格的数据也没有改变,请看一看,是什么问题。谢谢你。
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)    
Dim objExcelApp,i,j
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
''''ExcelExample.xls is to create before executing this procedure.
''''Replace <path> with the real path of the file ExcelExample.xls.
objExcelApp.Workbooks.Open "d:\zmx02.xls"
If HMIRuntime.Tags("zmxw01").read=1 Then

For i=1 To 10

If objExcelApp.worksheets("sheet1").Cells(i,1).VAlue ="" Then
j=i
Exit For 
End If
Next

End If
objExcelApp.worksheets("sheet1").Cells(j,1).VAlue =HMIRuntime.Tags("zmxw01").read
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing


End Sub

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日 上午3:07
下一篇 2019年6月11日 上午3:07

相关推荐

  • 1500和wincc 7.5通讯

    1500和winnn7.5通讯不上。帮我看看哪里有问题 问题补充:可以ping通的;simatic net 安装版本是V15 ;访问节点什么意思,怎么…

    2021年7月5日
  • wincc 按钮打开文件夹

    我想用wincc按钮打开一个文件夹,该文件夹的名字是系统根据日期自动存的。如2016年12月,系统就以“2016年12月”命名的文件夹。然后,我又调用了一个日历控件,用户选择日历控…

    SIMATIC WinCC 2017年6月8日
  • WINCC怎么同时读取不同号段的IP

    各位老师,我工控机上安装的WINCC软件,一个PLC IP地址是171.16.1.101.,另一个则是192.168.127.122,我想同时监控这两个IP,怎么在电脑上…

    SIMATIC WinCC 2021年7月5日
  • MP277触摸屏相应不灵敏

    现场MP277触摸屏,型号为6AV6 643-0CD01-1AX1 左半侧触摸响应灵敏,右半侧触摸响应不灵敏,需要多多次点击,有时 甚至无反应,断电重…

    SIMATIC WinCC 2021年7月5日
  • wincc advanced v13

    我用TIA wincc advanced v13给客户开发上位机程序,用电脑监控PLC,项目很小,如何发布运行程序?客户是不是必须购买WinCC&nb…

    SIMATIC WinCC 2017年6月12日
  • WINCC作为客户机或服务器

    我按照西门子网站的文章,在STEP7里面集成了一个WINCC项目。在Simatic Manager里面,右键点击项目名称,“Insert New Ob…

    SIMATIC WinCC 2019年6月11日
  • MP370死机

    我用的MP370有时出现死机现象,即触摸MP370屏任何地方,无反应,PLC为317-2DP,屏与PLC为MPI通讯,西门子的工程师说做一下OS更新,但也不行.请叫各位老师!谢谢 …

    SIMATIC WinCC 2019年6月11日
  • wincc按钮画面切换

    我现在有好多个画面切换的按钮我想实现 随便点开一个画面相应的按钮是一种颜色,在切换另一个按钮画面 这个按钮变成另一个状态, 也就是说按钮额颜色有记忆状…

    2020年11月1日
  • wincc调用画面的问题

    我建两个画面1.PDL和2.PDL,其中画面1中有一按钮调用画面2,画面2中有3个按钮来控制PLC。现在画面2作为起始画面激活时按钮是正常的,但当画面1作为起始画面激活后再调用画面…

    SIMATIC WinCC 2019年6月11日
  • 有没有大神做过MCGS与WINCC的opc通讯?2

    不知道只能补充一次,也不知道怎么私下联系回答者,刚才1里回答的那位大神,我现在测试的是wincc与mcgs的互相通信,走的wincc采集mcgs发布的MCGS.OPC.Server…

    SIMATIC WinCC 2021年7月5日