利用OLE方式检查EXCEL是否打开

昨天一个朋友问，怎么判断某个EXCEL文件是否打开。我有个思路，在EXCEL的VBA里面，可以得到所有已打开的EXCEL的名称，遍历这些已打开的EXCEL文件名，看是否有与你判断的那个EXCEL文件名（全路径）一致的，如果有，则说明已打开。

 

下面为EXCEL的VBA里相关代码

for i = 1 to Application.Workbooks.Count
    if Application.Workbooks(i).FullName = strFilename then

       msgbox "文件已打开！"

       exit for 

    endif

next

 

基于以上代码，可以在SAP利用OLE方式来判断EXCEL文件是否打开，我觉得是可以实现的，只是感觉不是那么好，再研究研究更好的办法。