wincc与EXCEL通讯是弹出三个对话框,如何解决???

小生想用WINCC用VB与excel进行通讯,用EXCEL来记录一些归档数据,
 以方便查看.(个人认为这种通讯方式,也是不错的.)

 小生使用的EXCEL文件名为变量名,但通讯完毕时,会出现一下三个对话框,
 之前有使用固定的EXCEL文件(非变量名),进行记录时,没有出过这种情况.
 望使用过VB来和EXCEL通讯的前辈们指教一下,如何才能克服这三个对话框的弹出呢:
 程序如下:
 Dim AA1
 Set AA1=HMIRuntime.Tags("SP")
 AA1.Read

 Dim i
 Dim j
 Dim A1
 Set A1=HMIRuntime.Tags("A1")
 A1.Read

 Dim fy    ''为系统时间
 Dim fm
 Dim fd
 fy=Year(Date)
 fm=Month(Date)
 fd=Day(Date)

 Dim xlApp  ''定义xlapp为对象 
 Set xlApp = CreateObject("Excel.Application") ''创建excel.application对象 
 Dim xlbook
 Set xlbook = xlApp.Workbooks.Open("e:\\WINCC\"&fy&"\"&fm&"\"&fd&".xls") 
 ''以今天算为,打开的文件为E:\\WINCC\2007\12\1.XLS,其中2007\12\1为系统时间的年份,月份和Day号,这个文件也是在自动新建的; 
 ''如使用非变量的文件名,就不会出现对话框,如"e:\\wincc\1.xls"
 Dim xlsheet
 Set xlsheet = xlbook.Worksheets(1) ''定义并打开报表所在的工作簿,这里为worksheets(1); 

 AA1.Value=AA1.Value+1 ''记录写入的行号的
 i=AA1.Value
 AA1.Write

 xlsheet.Cells(i,1) = A1.Value ''是一个数组循环,这里只简写了一个
 For j=1 To 1000
 Next

 xlbook.Save   
 For j=1 To 1000
 Next
 xlbook.Save 
 For j=1 To 1000
 Next

 xlApp.Quit 

 自动保存时依次有如下三个对话框:

 
 1.是否保存对“10.xls“的更改?
 2.“10.xls“文件已经存在,是否替换原有文件?
 3.“10.xls“可能含有与文本文件(指表符分割)不兼容的功能,是否保持
    工作簿的这种格式?
  ·要保持这种格式,去掉所有不兼容的功能,请单击"是"。
  ·如果要保留这些功能,请单击"否",然后再用最新的EXCEL格式保存一份副本.
  ·如想知道哪些内容会丢失,请单击"帮助".

 如何克服三个对话框,请高手指教.

最佳答案

在打开工作簿后,加上一句:
 xlApp.DisplayAlerts = False
 就可以屏蔽对话框的出现。当然,屏蔽后,系统都是按默认方式处理的。

提问者对于答案的评价:
已经测试通过,谢谢大哥指教!
 如有问题在向你请教啊.

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

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

相关推荐

  • WIncc硬盘坏了

    电脑系统起不来,装的Wincc,买了个新硬盘,装上Ghost,系统还是起不来,现在装了个纯净版,我想重装软件,请问1、原来的授权怎么搞出来2、软件装上后,怎么弄程序3、弄好程序好,…

    SIMATIC WinCC 2018年12月7日
  • SQLServer2005MSSQLUSER$<计算机名称>$WinCC 是什么意思

    在C/S结构快速入门中,创建一个新用户或者使用默认Administrator,为用户分配Administrators,SIMATIC HMI和SQLServer2005M…

    SIMATIC WinCC 2017年11月12日
  • web画面在远程电脑操作时候,服务器电脑画面也切换,什么原因?

    Web画面在远程电脑操作时候,服务器电脑画面也切换,什么原因?如何解决才好啊? 最佳答案 你切换画面的按钮用按钮本身的切换画面,不要用脚本触发或者点击来做就行了。还有就是WEB可能…

    SIMATIC WinCC 2019年6月11日
  • 请教大家几个VB的问题?

    1.SET是指定对象的意思吗?2.截图中的脚本操作的表是用户归档;    请问为什么截图中的" & tempi…

    2020年11月1日
  • EXCEL WINCC

    客户在一个EXLEL数据中建立一组数据,此数据作为数据配方要导入到WINCC中1.大家有和思路,是直接导入到WINCC变量中还是导入到用户归档中?2.安装WINCC7.0后发现,打…

    SIMATIC WinCC 2017年8月26日
  • wcc用户管理器

    我们车间的技术部门要加一个权限,就是有些工艺数据只有技术部可以改,操作工不能随便更改,我看了wcc的用户管理器,有几点不是很明白想请教:1、用户管理器操作的权限是怎么设的,就是说第…

    SIMATIC WinCC 2019年6月11日
  • Mp 377 12" Key 不启动

    我有一块Mp 377 12" Key 一上电按键指示灯全亮,白屏不启动,想恢复出厂设置,但网线显示不通,两个网线插口灯也全亮,是不…

    SIMATIC WinCC 2018年12月5日
  • wincc can not use

    软件工程一直正常使用的,最近出现授权过期提示。授权名称: SIFLA9WRC40700授权描述:wincc runtime+configuration&nbsp…

    2021年7月5日
  • WINCC7.0授权问题2

    最开始wincc7.0授权成功了,但是后面电脑断电重启后就出现wincc RC A9WRC?0700授权不成功,我也换了几个授权工具也不行,找到这个授权文件,授…

    2021年7月5日
  • wincc 6.2 新建项目

    刚安装完WINCC 6.2新建多用户项目,但是提示(用户没有执行该操作的权限,请检查用户在WINDOWS用户组中的分配),新建项目建不了,什么原因啊,如和解决啊 最佳答案…

    SIMATIC WinCC 2019年6月11日