搬家第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