搬家第13天-169.Wincc V7.3 VBS 判断Excel文件是否打开,避免重复打开

今天在群里有人询问wincc脚本操作一个已经存在的excel文件时,怎么避免重复打开一个文件,其实这个很好实现的。按钮的vbs脚本如下:

Sub OnClick(ByVal Item)                             
Dim path,xlApp
path= "c:\myxls.xlsx"
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlapp.DisplayAlerts =False
xlApp.Workbooks.Open path
If xlapp.WorkBooks("myxls.xlsx").ReadOnly Then
   xlApp.WorkBooks.Close
   Set xlApp=Nothing
   Msgbox "文档已经打开"
   Exit Sub
Else
   xlApp.Visible=True
   Msgbox "文档之前没有打开过,该干嘛干嘛"
End If
End Sub

上一篇:mysql with ... as (...) 递归查询 改用存储过程实现


下一篇:c++参数解析类