判断文件是否打开

Yanxi2021

写了一段VBA代码，打开共享盘上的一个Excel，并更改其中的数据，保存。

现在遇到的问题是，需要先判断该共享文件是否已经被打开。因为如果被别人打开了更改后就不能直接保存。
请教大神，如何判断该文件是否已经被别人打开？代码如何写。

准提部林

最簡單方法//
vba打開檔案後, 檢查readonly屬性是否為true

qiao1019

*.Attributes = ReadOnly 用操作文件的这个函数来判断文件是不是只读状态，如果是只读那就是已经打开了。
如果这个不行就试着绕一圈来判断，比如操作这个文件没报警就定义一个变量为true，操作有报警就为false，然后通过这个变量来判断是不是打开状态。

杨建营

Private Function FileIsOpen(ByVal strPath As String) As Boolean
    Dim fFile As Integer
    fFile = FreeFile
    On Error GoTo ErrOpen
    Open strPath For Binary Lock Read Write As fFile
    Close fFile
    Exit Function
ErrOpen:
    FileIsOpen = True
End Function
可以用这个检测一下。