如题

版主说的是一种方法，VBS里不能直接调用API确实不方便，但VBS对对象的操作很便利，用GetObject可获取当前运行的Excel应用程序对象

On Error Resume Next '遇到错误继续执行下一行
Dim xlsapp
Dim i
Set xlsapp=GetObject(,"Excel.Application") '获取当前运行的Excel应用程序对象，获取失败则xlsapp为空
If Isempty(xlsapp) Then '判断xlsapp是否为空
msgbox "Excel没打开"
Else
For i = 1 To xlsapp.Workbooks.count '遍历当前Excel工作簿集合
If Lcase(xlsapp.Workbooks(i).Path & "\" & xlsapp.Workbooks(i).Name) = Lcase("F:\Excel.xls") Then '比较工作薄文件名和路径，为防止大小写差异统一转换为小写进行比较
Msgbox "F:\Excel.xls 已打开"
End If
Next
End If
Set xlsapp=Nothing '释放对象