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