OptionExplicitFunctionaction
OnErrorResumeNext‘遇错跳转,继续往下口头DimxlApp,xlBook,oExcelFileoExcelFile="D:\opc1.XLS"‘所有代码只需扭转文件的门路就可以，其余不用作任何改动DimisXlsOpenisXlsOpen=FalseSetxlApp=GetObject(,"Excel.Application")‘失掉EXCEL进程IfTypeName(xlApp)<>"Application"Then‘检测到有Excel进程曾经关上SetxlApp=CreateObject("Excel.Application")EndIfxlBookFind=FalseForEachoBookInxlApp.Workbooks‘循环审核Excel进程关上的WorkbooksIfLCase(oBook.FullName)=LCase(oExcelFile)Then‘假设门路与所审核的文件分歧SetxlBook=oBookxlBookFind=TruexlBook.ActivateExitFunctionEndIfNextIfxlBookFind=FalseThen‘#假设没有找到xlApp.Visible=True‘要关上的文件能否显示或是在后盾运转SetxlBook=xlApp.Workbooks.Open(oExcelFile)EndIf
EndFunction
各位大侠，这是wincc外面的vbs脚本代码，成功的配置是检测指定的opc1excel表格能否关上，假设曾经关上了，则不启动任何举措，假设没有关上，则智能关上。。。。。
如今的疑问是我把这段代码拷到excel的宏程序外面，是相对可以的，然而放进wincc的脚本外面，就打不开指定文件了。。。。
求助高手，这是什么要素啊，是这段代码该的疑问，还是wincc不允许这样的代码。。。。。请高手看看
本文原创来源：电气TV网，欢迎收藏本网址，收藏不迷路哦！
添加新评论