sunny_8848 发表于 2024-5-19 20:13:11

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

多谢帮忙，代码很强大

wuyunpeng888 发表于 2024-5-22 13:16:54

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

wuyunpeng888 发表于 2024-5-22 14:03:54

本帖最后由 wuyunpeng888 于 2024-5-22 14:06 编辑

'引用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 发表于 2024-5-25 14:13:58

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

多谢分享帮助，这个思路倒是很新奇
页: 1 [2]
查看完整版本: 用Excel vba判断某个文件是否已经打开