Überprüfen Sie, ob die Excel-Arbeitsmappe geöffnet ist.

Question

So ... Ich habe dieses Stück Code als Referenz:

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 

ich meine Arbeitsmappe verwendet und alles, aber es gibt Syntaxfehler in Zeile 15: ff = FreeFile_().

Warum ist das der Fall? Welcher Syntaxfehler ist da? Ich versuche zu überprüfen, ob Arbeitsmappe von einem anderen Benutzer geöffnet wird, denn wenn das der Fall ist, kann ich die Werte in der Arbeitsmappe nicht speichern.

Danke für Antworten, D.

Answer 1

Ich glaube, Sie copy/paste den Code in VBA Editor. Säubere also den Code, lösche alle nicht benötigten Lücken und überprüfe, wo jede Zeile fertig ist.