用于一次访问共享excel的VBS代码

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