用Excel vba判断某个文件是否已经打开

sunny_8848

nslove44202489 发表于 2024-5-1 14:46
任意文件不一定是excel文件啊

多谢帮忙，代码很强大

wuyunpeng888

DWG文件打开后，同文件夹下会有自动创建两个主文件名相同的，扩展名分别为dwl和dw2的个文件，你kill后还在就是打开了，kill后不在了或者原来就没有就是没打开

wuyunpeng888

'引用FileSystemObject
Public Function IsOccupied(ByVal strFileName As String) As Boolean
Dim Fso As New FileSystemObject, strPath As String
strPath = Replace(LCase(strFileName), ".dwg", ".dw2")
If Fso.FileExists(strPath) = True Then
    Fso.DeleteFile strPath
    If Fso.FileExists(strPath) = True Then IsOccupied = True
End If
End Function

sunny_8848

wuyunpeng888 发表于 2024-5-22 14:03
'引用FileSystemObject
Public Function IsOccupied(ByVal strFileName As String) As Boolean
Dim Fso A ...

多谢分享帮助，这个思路倒是很新奇