html - VBS代码一次访问一个用户共享的excel

Question

我有
1. 共享 excel 表
2. 带有 VBscript 的 Html 页面

我想执行一部分代码（在共享 excel 中保存一些数据），以便一次只有一个用户（首先打开该共享 excel 的用户）可以执行此操作。

我尝试了很多东西。但它没有按预期工作。

任何帮助将不胜感激。

Answer 1

下面的 vba 将检查文件是否打开。

Dim FileNum As Integer

'File exists
If Len(Dir(StrFilePath)) > 0 Then 
    FileNum = FreeFile() 
    On Error Resume Next 
    Open StrFilePath For Input Lock Read As #FileNum 
    'Open and lock file
    If Err.Number <> 0 Then 
        'File is open
    Else 
        'File is closed
    End If 
    Close FileNum 
    On Error GoTo 0
Else 
    'File does not exist
End If