WInCC求助

在WinCC中建两个按钮用C脚本或VBS运行excel的两个"宏"命令,怎么做?

最佳答案

这是我以前做的笔记,正好翻出来了,你看看吧
  #define GetObject GetObject 
  __object *xlApp =NULL; 
  __object *xlBook=NULL; 

  xlApp = __object_create("Excel.Application");           //创建对象 
  xlApp->Visible=FALSE;                                    //使对象不可见 
  xlBook=xlApp->Workbooks->Open("c:\\Temp.xls");            //打开表 
  xlApp->Run("Sheet1.TestFun");                        //调用EXCEL表中的宏 
  xlBook->PrintOut();                                    //打印输出 
  xlApp->Quit();                                    //退出 

  __object_delete(xlBook); 
  __object_delete(xlApp); 

  ------------------------------------ 

  Dim xlApp,xlBook
  Set xlApp = CreateObject("Excel.Application") 
  xlApp.Visible = False 
  Set xlBook = xlApp.Workbooks.Open("c:\Temp.xls") 
  xlApp.Run "Sheet1.TestFunc" 
  xlApp.DisplayAlerts = False 
  xlApp.Quit

提问者对于答案的评价:
谢谢

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

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

相关推荐