檢查excel工作簿是否打開？

Question

所以...我使用了這段代碼作為參考：

Option Explicit

Sub Sample()
Dim Ret

Ret = IsWorkBookOpen("C:\myWork.xlsx")

If Ret = True Then
    MsgBox "File is open"
Else
    MsgBox "File is Closed"
End If
End Sub

Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long

On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0

Select Case ErrNo
Case 0:    IsWorkBookOpen = False
Case 70:   IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function

我使用了工作簿和所有內容，但在第15行返回了語法錯誤：ff = FreeFile_（）。

為什么會這樣呢？ 有什么語法錯誤？ 我正在嘗試檢查是否由其他用戶打開了工作簿，因為這樣的話，我無法將值保存在工作簿中。

感謝您的回答，D。

Answer 1

我認為您已將代碼復制/粘貼到VBA編輯器中。 因此，清理代碼，刪除不需要的所有空白，驗證每行的結束位置。